Начав тренировки, спортсмен пробегает 10 км. Последующие дни он увеличивал свой пробег на 10%. Через, сколько дней суммарный путь спортсмена превысит 100 км. Паскаль. С использованием while

program zz1;

var n:integer; / / описываем переменную целого типа

k, s:real; / / описываем переменные не целого типа

begin

k:=10; / / задаем начальное значение пробега в первый день

n:=1;

while S < = 100 do / / организуем цикл, пока пробег не превысит 100 км

begin

k:=k + s * 0.1; / / рассчитываем 10% от пробега за предыдущий день

s:=s + k; / / высчитаем пробег за текущий день

n:=n + 1; / / считаем количество дней

end;

write (' суммарный путь в 100 км превысит через ', n, ' дней '); / / выводим ответ

end.