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

Ответ:

Изъяснение:

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.