Составить программу , которая определяет , являются - вопрос №9303333 от ALEXGEEK 13.05.2023 05:18

Question

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

ALEXGEEK · Answer

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....