Question

Помогите хоть с одной задачей!! Паскаль А) Одноклеточная амеба каждый час делится пополам. Вывести количество амеб, которое получится через 1, 2, 3, 4, 5, 6, 7, 8 часов Б). В банке сделан вклад в размере 10000 руб. под 8% годовых. Какая сумма окажется на счете через 1, 2, 3 года? В). В первый день спортсмен пробежал 5 км. Каждый следующий день нагрузка увеличивалась на 10%. На какой день нагрузка превысит 10 км? Pascal ABC. на уровне 9 класса. без массивов.

Answer 1

А)

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.

Потренируйся на последнем.