Вопрос пользователя:
(Паскаль)
Являются ли числа А и B взаимно простыми
НОД = 1
(7,8) = 1
Илюха отвечает:
Var x, y: Integer;
Begin
Writeln(‘Введите два числа’);
Readln(x,y);
while (x<>0) and (y<>0) do begin
If x>y Then x:=x Mod y
Else y:=y Mod x;
end;
Writeln(‘НОД=’, x+y);
end.