Question

в этом месяце спортсмен пробегает на каждой тренировке дистанцию в М км. Известно что каждый месяц длинна дистанции возрастает на 5 %.

 написать программу которая вычесляет сколько месяцев назад длинна пробегаемой за тренеровку дистанции составляла У км. если входные данные некоретны - вывести сообщение "NO"

ВВОД 

М У - длины дистанций сейчас и некоторое время назад.

ВЫВОД

число-сколько месяцев назад дистанция была У км.

ПРИМЕР

ввод                                                      вывод

4.630500          4.000000                           3 

Answer 1

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.