Составить алгоритм 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.

конструктор автомобилей: проектирования

писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там

бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то

врач: для различных анализов 

: те же нужные конференции, призентации и все такое делается на компьютере

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}