Question

написать программу с использованием оператора while do
Вот задача
в начале тренировочного периода лыжник во время тренировки пробегал 5 км,каждый день он увеличивал нагрузку на 5%.Рассчитать через какое время нагрузка лыжника во время тренировки превысит 20км

Answer 1

Лучше перепроверить.

1388c112a804655895d2d49f08845a75.pas

Answer 2

var 
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);

den:=0;
while a<c do begin  d:=a/100*b; // узнаем, на сколько увеличивается растояние  a:=a+d;  den:=den+1;  end;     writeln(den);
end.

Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)

1388c112a804655895d2d49f08845a75.pas