Вэтом месяце спортсмен пробегает на каждой тренировке дистанцию в м км. известно что каждый месяц длинна дистанции возрастает на 5 %. написать программу которая вычесляет сколько месяцев назад длинна пробегаемой за тренеровку дистанции составляла у км. если входные данные некоретны - вывести сообщение "no" ввод м у - длины дистанций сейчас и некоторое время назад. вывод число-сколько месяцев назад дистанция была у км. пример ввод вывод 4.630500 4.000000 3
Program n1;
Uses CRT;
Var k: integer; m,y:real;
begin
Readln(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);
readln
end.