В этом месяце спортсмен пробегает на каждой тренировке дистанцию…

Question

В этом месяце спортсмен пробегает на каждой тренировке дистанцию в М км. Известно что каждый месяц длинна дистанции возрастает на 5%. Написатьпрограмму которая вычесляет сколько месяцев назад длинна пробегаемой за тренеровку дистанции составляла У км. Если входные данные некоретны — вывести сообщение "NO"

oleg1233 · Accepted Answer

Program n1; Uses CRT; Var k: integer; m,y: real; beginReadln (m,y); If m<y then writeln ('NO') else if m=y then writeln ('1') else While m>y do begin m: =m/105*100; k: =k+1; end; writeln (k); readlnend.

В этом месяце спортсмен пробегает на каждой тренировке дистанцию…

Задание:

Решение: