Составить программу , которая определяет , являются ли два числа взаимно простыми , и...

Question

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

Comments

ищи программу определения НОД двух чисел, если на выходе будет 1 тогда числа взаимно простые, можно скинуть если очень нужно, на паскале

---

скинь , мне как раз на Паскаль

---

Напишите решение на Паскале

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.

Comments

PascalABC.NET