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

Question

Эра

11 января, 17:56

+3

Ответы (1)

Знаете ответ?

Христиана · Answer 1

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.