Хоть с одной паскаль
а) одноклеточная амеба каждый час делится пополам. вывести количество амеб, которое получится через 1, 2, 3, 4, 5, 6, 7, 8 часов
б). в банке сделан вклад в размере 1 руб. под 8% годовых. какая сумма окажется на счете через 1, 2, 3 года?
в). в первый день спортсмен пробежал 5 км. каждый следующий день нагрузка увеличивалась на 10%. на какой день нагрузка превысит 10 км?
pascal abc. на уровне 9 класса. без массивов.
А)
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.
Потренируйся на последнем.