Даны целые положительные числа A и B найдите их наименьшее общее…

Question

Даны целые положительные числа A и B найдите их наименьшее общее кратное НОК используя алгоритм Евклида: НОК (A,B)=НОК (B,A mod B), если B не равен 0; NOK (A; 0)=A

Answer 1

74

majiblu

03 апреля 2023

Сори в начале не понял, что нужен евклид, я исправился: uses crt; function NOD (m,n: integer): integer; beginIf m<>0 then NOD: =NOD (n mod m,m) else NOD: =n; end; function NOK (m,n: integer): integer; beginNOK: =(m div NOD (m,n)*n; end; var x,y: integer; beginclrscr; writeln ('Vvedite x y: '); readln (x,y); writeln (NOK (x,y); readln; end.

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

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

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

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

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