Работа в Pascal: Мышке давали x грамм сыра, при этом количество сыра увеличивалось каждый...

Question

Работа в Pascal: Мышке давали x грамм сыра, при этом количество сыра увеличивалось каждый день на 10%. Сколько съела мышка на n день? Сколько дали сыра на n день?

Answer 1

Ответ:

Объяснение:

var

 i, n:integer;

 x:real;

 sum, count:real;

begin

 writeln('Input x = ');

 readln(x);

 writeln('Input n = ');

 readln(n);

 count:=x;

 sum:=0;

 for i:=1 to n do begin

   count:=count + (count * 0.1);

   sum:=sum + count;

 end;

 writeln('Vsego sela = ', sum:3:3);

 writeln('Vsego dali = ', count:3:3);

 readln;

end.