Question

Pascal. Ввести с клавиатуры 2 натуральных числа – N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.

Answer 1

Var
n,m:integer;
begin
write('N=');
readln(n);
write('M=');
readln(m);
while n<>m do
if n > m then
n := n - m
else
m := m-n;
if n = 1 then
write('YES')
else
write('NO');
end.