С клавиатуры вводятся числа N и K. Вывести на экран / / наименьший делитель введённых чисел.

Question

Информатика

Мехмед

14 сентября, 17:02

С клавиатуры вводятся числа N и K. Вывести на экран / / наименьший делитель введённых чисел.

+1

Ответы (1)

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

Эмме · Answer 1

Pascal

Program del;

Var n, k, I, a, b, m : integer;

Begin

Readln (n, k) ;

M = - 1;

For i:=2 to n do

Begin

a:=n mod i;

b:=k mod I;

If (a=0) and (b=0) and (m = - 1) then

M = I;

end;

If m = - 1 then

Writeln ("NO")

Else writeln (m) ;

End.