(Паскаль)
Являются ли числа А и B взаимно простыми
НОД = 1
(7,8) = 1
Var x, y: Integer;
BeginWriteln('Введите два числа');Readln(x,y);
while (x<>0) and (y<>0) do beginIf x>y Then x:=x Mod yElse y:=y Mod x;end;Writeln('НОД=', x+y); end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.