0 рейтинг
23 видели

(Паскаль)

Являются ли числа А и B взаимно простыми

НОД = 1

(7,8) = 1

от (98 баллов) в разделе Информатика | 23 видели

1 Ответ

0 рейтинг

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.

от Начинающий (182 баллов)
10,984,878 заданий
13,471,016 решений
8,518,553 комментариев
4,909,216 пользователей