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

Question

Информатика

Япанчи

1 декабря, 20:12

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

+2

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