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

:var s:real; k:integer; // описание переменных

begin

s:=10; // пробег в 1-й день

k:=1;

while s<20 do // пока пробег < 20 км

begin

k:=k+1; // добавляем один день

s:=s*1. 1; // увеличиваем пробег на 10%

end;

writeln('s = ',s,' k = ',k); // выводим на экран результаты

end.

Результат:

s = 21. 4358881 k = 9