Помогите хоть с одной задачей!! Паскаль
А) Одноклеточная амеба каждый час делится пополам. Вывести количество амеб, которое получится через 1, 2, 3, 4, 5, 6, 7, 8 часов
Б). В банке сделан вклад в размере 10000 руб. под 8% годовых. Какая сумма окажется на счете через 1, 2, 3 года?
В). В первый день спортсмен пробежал 5 км. Каждый следующий день нагрузка увеличивалась на 10%. На какой день нагрузка превысит 10 км?
Pascal ABC. на уровне 9 класса. без массивов.
А) Одноклеточная амеба каждый час делится пополам. Вывести количество амеб, которое получится через 1, 2, 3, 4, 5, 6, 7, 8 часов
Б). В банке сделан вклад в размере 10000 руб. под 8% годовых. Какая сумма окажется на счете через 1, 2, 3 года?
В). В первый день спортсмен пробежал 5 км. Каждый следующий день нагрузка увеличивалась на 10%. На какой день нагрузка превысит 10 км?
Pascal ABC. на уровне 9 класса. без массивов.
More Questions From This User See All
Answers & Comments
А)
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.
Потренируйся на последнем.