Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x: real;
begin
readln(x);
writeln(x: 0: 0);
end.
2000 - k
16 бита - i
v=k*i=2000*16=32000 бита=4000 байтов
тимофею
есть
кого
спросить
тему
var h,a: integer;
a: =1;
repeat
h: = h+3;
a: =2*a;
writeln('прошло часов - ',h,', амеб - ',a)
until h> =30;
readln;
Популярные вопросы