Начав тренировки, лыжник в первый день пробегал 10 км. В каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить, в как

Начав тренировки, лыжник в первый день пробегал 10 км.
В каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить, в какой день он пробежит 20 км.

 

Составить программу в паскале.

(Оператор Цикл. Цикл с предусловием.)

 

 

  • Вариант номер 1:
     
    program c1ba;
    var a:byte;   
    p:real;
    begin
    p:=10;
    a:=1;

    repeat begin
    p:=p+(p/10);
    a:=a+1;
    end;
    until p>=20;

    writeln('a=',a);
    end.

    Вариант номер 2:
    program c1ba;
    var a:byte;   
    p:real;
    begin
    p:=10;
    a:=1;
    while p<=20 do begin
    p:=p+(p/10);
    a:=a+1;
    end;

    writeln('a=',a);
    end.