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

Question

Информатика

Павлиныч

8 апреля, 01:03

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

+5

Ответы (2)

Знаете ответ?

Юрченя · Answer 1

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.

Армен · Answer 2

Var n, m, d:integer;

begin

readln (n, m) ;

d:=m-1;

while n mod d0 do d:=d-1;

writeln (d) ;

end.

Пример:

100 50

25