Предмет: Информатика,
автор: Ggdggf
25 баллов! Pascal ABC задача с циклом for.
Пойманную мышь посадили в клетку. За первый день она съела s граммов сыра. Каждый следующий день ей давали на 2% больше, чем в предыдущий. Сколько сыра съела мышь за d дней? S и D вводит пользователь.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Другие предметы,
автор: Nurlan2
Предмет: Английский язык,
автор: торнадо2014
Предмет: Другие предметы,
автор: SKRESHlK
Предмет: Химия,
автор: XWXW
Предмет: Математика,
автор: Yблюдok