Составить программу , которая определяет , являются ли два числа взаимно простыми , и выводит на экран сообщение 'Да' или 'Нет' и используя с цикл параметром (Взаимно простые числа - это числа , которые не имеют общих делителей кроме 1 , на пример : 3 и 5)
Ответы
Ответ дал:
0
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.
Ответ дал:
0
PascalABC.NET
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад