I = log_2(128) = 7 бит на символ
7*10 = 70 бит
Var
amoebas, t: integer;
begin
amoebas := 1;
t := 0;
repeat
t := t + 3;
amoebas := amoebas * 2;
Writeln(amoebas, ' амеб через ', t, ' часа');
until t >= 24;
end.
Здесь речь идёт о кратности любого числа на 10. 0 не подходит под это описание т.к О не кратное число. Если число оканчивается на 0 то оно кратно 10 если нет то не кратно.
Var i:integer;
begin
for i:=0 to 20 div 3 do write(3*i+1,' ');
writeln;
end.