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

Question

Еля

7 мая, 19:55

+2

Ответы (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.