ЗАДАЧА

[vereney]

петя читает роман.в первый день он прочитал 50 стр в каждый следующий день он прочитывает на 10% стр больше чем в предыдущий. сколько стр прочтет он в течении х дней?
вот такая задача,вроде бы простая,но что то намутила, код не работет, подскажите,где ошиблась, пожалуйста

var
   i,s,x:real;
begin
      writeln('Введите колво дней');
      readln(x);
      s:=50;
      for i:=2 to x do
      begin
            s:=s+s*0.1;
            end;
            write(s);
            end.

[vereney]

НАШЛА ОШИБКУ

var
   s:real;
   i,x:integer;
begin
      writeln('Введите колво дней');
      readln(x);
      s:=50;
      for i:=1 to x do
      begin
            s:=s+s*0.1;
            end;
            write(s);
            end.

[Alex11223]

В s получается кол-во всех страниц. А он прочитывает на 10% больше, чем в предыдущий день (для вычисления этого надо завести еще 1 переменную и ее прибавлять к s).

[vereney]

var
   s,a:real;
   i,x:integer;
begin
      writeln('Введите колво дней');
      readln(x);
      s:=50;
      a:=0;
      for i:=1 to x do
      begin
            s:=s+s*0.1;
            a:=a+s;
            end;
            write(a);
            end.

[vereney]

ДОБАВИЛА,НО ЧТО ТО ОТВЕТ НЕВЕРНЫЙ(((

[Alex11223]

Потому что получается, что в 1 день он читает не 50 страниц, а столько, сколько должен прочитать за 2 день и т.д.

[vereney]

простите. не поняла

[Alex11223]

Опечатался выше, исправил, мб так понятнее.

Ну по условию задачи в первый день он должен прочитать 50 стр, а потом каждый день на 10% больше, чем в предыдущий. Здесь он сразу, в первый день, начинает с 50 +10% от 50.

[vereney]

а как тогда?никак понять не могу

[Alex11223]

Вроде самое простое это поменять их местами в цикле.