Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить через сколько часов амёба станет больше 200. написать программу на языке Pascal ABC.
Var a,t:integer; begin t:=0; a:=1; while a<200 do begin<br>a:= a*2; t:=t+3 ; end; write (t); end.
завтра на уроке проверю, если правильно выведет на экран оценю)