Question

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

Answer 1

procedure NOD(a,b:integer;var nd:integer);beginwhile a<>b doif a>b then a:=a-belse b:=b-a;nd:=a;end;var a,b,nd:integer;beginreadln (a);readln (b);NOD(a,b,nd);writeln(nd);
if nd=1 then write('взаимные')else write ('не взаимные');end.