Зачетная программа: определить, через сколько дней норма пробега будет больше 50 км - Turbo Pascal
Формулировка задачи:
спортсмен пробежал за 1 день N км каждый день он увеличевал нагрузку на K% определить через сколько дней норма пробега будет больше 50 км
Решение задачи: «Зачетная программа: определить, через сколько дней норма пробега будет больше 50 км»
textual
Листинг программы
var
m: integer;
n, k: real;
begin
write('Введите N в км ');
readln(n);
write('Введите K% ');
readln(k);
if k > 0 then begin
while n < 50 do
begin
n := n * (1 + k / 100);
inc(m);
end;
writeln('Норма пробега будет больше 50 км через ', m, ' дней') end
else writeln('Без повышения нагрузки,норма не будет больше 50 км');
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д