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

Question

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

Answer 1

63

mitaj

19 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: