Вопрос от посетителя
каждый день мышка съедает на 10 % больше чем в предыдущий день.составьте программу вычисляющую сколько зерен мышка съест за неделю если известно что в первый день она съела 8 зерен(for,while,repeat)
Отвечает Илюха:
var i:integer;
s,z:real;
Begin
z:=8;
for i:= 2 to 7 do begin
s:=s+z;
z:= z*(1+10/100);
end;
writeln(s);
End.