(Паскаль) Являются ли числа А и B взаимно простыми НОД = 1 (7,8) = 1
(Паскаль) Являются ли числа А и 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.
Не нашли ответ?
Похожие вопросы