(Паскаль) Являются ли числа А и B взаимно простыми НОД=1 (7,8)=1

Задание:

(Паскаль) Являются ли числа А и 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.

Знаете другой ответ?

Отправить свой ответ