Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var h,a: integer;
begin
a: =1;
repeat
h: = h+3;
a: =2*a;
writeln('прошло часов - ',h,', амеб - ',a)
until h> =30;
readln;
end.
640*480*3*8/28800 секунд
Популярные вопросы