Question

прошу вас решите задачу через систему Паскаль 8 класс

Одноклеточная амёба каждые 2 часа делится на 2 клетки. Определить сколько амёб будет через 2, 4, 6, …, 24 часа.
​​

Answer 1

Ответ:

program test;

var a,t:integer;

begin

a:=1;

for t:=1 to 24 do

if t mod 2 = 0 then

begin

a:=a*2;

writeln(t:2,' - ',a)

end

end.

Answer 2

Ответ:

Pascal

var

 i, t:integer;

begin

 t:=2;

 i:=1;

 while t <= 24 do begin

   i:=i*2;

   writeln('через ', t ,' ч. амёб будет = ', i);

   t:=t+2

 end;