Вывести ** экран наибольший делитель натурального числа N, меньшего заданного...

Question

Вывести на экран наибольший делитель натурального числа N, меньшего заданного натурального M - Pascal ABC

Answer 1

Var n,m,d:integer;
begin
readln(n,m);
d:=m-1;
while n mod d<>0 do d:=d-1;
writeln(d);
end.

Пример:
100 50
25

Comments

спасибо большое)

---

Пожалуйста.

Answer 2

Program HelloWorld;var N,M,i:integer;beginN:=20;M:=5;i:=N div 2;
   while(i>1)do  begin   if(N mod i=0)and(i1) then   writeln(i)   else writeln('Error');end.

Comments

спасибо большое!)