А)
var
count,i,n:integer;
begin
count:=1;
write('Введите время в часах: ');
readln(n);
for i:=1 to n do
begin
count:=count*2;
writeln('Кол-во амёб через ',i,' ч: ',count);
end;
end.
Б)
var
i,n:integer;
count:real;
begin
count:=10000;
write('Введите срок: ');
readln(n);
for i:=1 to n do
count:=count+0.08*count;
writeln('Итоговая сумма на счёте: ', count);
end.
Потренируйся на последнем.
