(паскаль) являются ли числа а и b взаимно простыми нод = 1 (7,8) = 1

masha3500 masha3500    1   09.03.2019 00:30    3

Ответы
progeimer16 progeimer16  24.05.2020 08:40

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика