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

эльмира156 эльмира156    1   07.03.2019 19:30    6

Ответы
tanya732 tanya732  24.05.2020 03:54

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика