Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
640*480=307200
256 цветов кодируется 1-м байтом
307200 байт
512кбайт=524288 байт
не более 1 страницы
varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.
на египетскую
вавилон-клинопись
финикия-подобие букв без гласных
египет-иероглифы
Популярные вопросы