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

Question

Информатика

Дёня

5 апреля, 22:30

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

+3

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