Question

Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить через сколько часов амёба станет больше 200. написать программу на языке Pascal ABC.

Answer 1

var a,t:integer;
begin
t:=0; a:=1;
while a<200 do  begin
a:= a*2;
t:=t+3 ;
end;
write (t);
end.

Answer 2

завтра на уроке проверю, если правильно выведет на экран оценю)