25 баллов! Pascal ABC задача с циклом for. Пойманную мышь посадили в клетку. За первый...

Question

25 баллов! Pascal ABC задача с циклом for. Пойманную мышь посадили в клетку. За первый день она съела s граммов сыра. Каждый следующий день ей давали на 2% больше, чем в предыдущий. Сколько сыра съела мышь за d дней? S и D вводит пользователь.​

Answer 1

program cheese;

var d, n :integer; s, sum :real;

begin

write('Введите число дней: ');

readln(d);

write('Введите массу(в граммах) сыра в первый день: ');

readln(s);

sum:=0;

for n:=1 to d do

begin

sum := sum + s;

s := s * 1.02;

end;

writeln('За ',d,' дней мышь съела ',sum,' г сыра');

end.