Помогите пожалуйста!!! Составить алгоритм 1. Татьяна Ларина, читая очередной фрацузский роман, подсчитала сумму номеров прочитаных страниц. Обозначив эту сумму Q. Напишите программу, определяющую номер последней прочитанной страницы. 2. Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день увеличивал дневную норму на 10% от нормы предыдущего дня. Через сколько денй спортсмен пробежит суммарный путь равный 100км. 

Вопрос пользователя:

Помогите пожалуйста!!! Составить алгоритм

1. Татьяна Ларина, читая очередной фрацузский роман, подсчитала сумму номеров прочитаных страниц. Обозначив эту сумму Q. Напишите программу, определяющую номер последней прочитанной страницы.

2. Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день увеличивал дневную норму на 10% от нормы предыдущего дня. Через сколько денй спортсмен пробежит суммарный путь равный 100км. 

Илюха отвечает:

var i,n,q:integer;

Begin

  read(q);

  repeat

    i:=i+1;

    n:=n+i;

  until n>=q;

  writeln(i);

End.

 

var i,n,q:integer;

s,a:real;

Begin

  a:=10;

  repeat

    i:=i+1;

    s:=s+a;

    a:=a*0.1;

  until s>=100;

  writeln(i);

End.

 

 

Добавить свой ответ