Начав тренировки, лыжник в первый день пробегал 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.