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

Question

Информатика

Эмори

27 марта, 04:38

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

+5

Ответы (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.