program amoeba; var i,count: integer; begin i: =3; //количество часов count: =1; //количество амеб while i < = 24 do begin count: =count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i: =i+3; end; readln; end.
Популярные вопросы