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

Question

Информатика

Герма

8 апреля, 17:50

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

+2

Ответы (2)

Знаете ответ на вопрос?

Костюня · Answer 1

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

Илиодор · 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.