Каждый день мышка съедает на 10 % больше чем в предыдущий день.составьте программу вычисляющую сколько зерен мышка съест за неделю если известно что в первый день она съела 8 зерен(for,while,repeat)

Question

Каждый день мышка съедает на 10 % больше чем в предыдущий день.составьте программу вычисляющую сколько зерен мышка съест за неделю если известно что в первый день она съела 8 зерен(for,while,repeat)

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.