ЗАДАЧА

[Serge_Bliznykov]

а если попробовать так?

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

[vereney]

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

[vereney]

первых два дня правильно считает, а вот 3 уже нет

[Serge_Bliznykov]

да всё правильно он считает.. в условиях ничего не сказано про целое число страниц, которые читает мальчик, вот он и читает десятые и сотые доли страниц...

если вставить в цикл отладочный оператор

  for i := 1 to x do
  begin
    a := a + s;
    WriteLn('в ',i,'-й день прочитал ',s:0:5,
        ' страниц, а всего прочитал ',a:0:5);
    s := s + s * 0.1;
  end;

, это легко увидеть:

Введите колво дней
5
в 1-й день прочитал 50.00000 страниц, а всего прочитал 50.00000
в 2-й день прочитал 55.00000 страниц, а всего прочитал 105.00000
в 3-й день прочитал 60.50000 страниц, а всего прочитал 165.50000
в 4-й день прочитал 66.55000 страниц, а всего прочитал 232.05000
в 5-й день прочитал 73.20500 страниц, а всего прочитал 305.25500

[vereney]

спасибо,поняла свою ошибку.10 проц брала от всего прочитанного