Question

Составить программу , которая определяет , являются ли два числа взаимно простыми , и выводит на экран сообщение 'Да' или 'Нет' и используя с цикл параметром (Взаимно простые числа - это числа , которые не имеют общих делителей кроме 1 , на пример : 3 и 5)

Answer 1

begin

 var a := ReadInteger('a =');

 var b := ReadInteger('b =');

 

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 

 Print(A = 1 ? 'Да' : 'Нет')

end.