Задание:
Даны целые положительные числа A и B найдите их наименьшее общее кратное НОК используя алгоритм Евклида: НОК (A,B)=НОК (B,A mod B), если B не равен 0; NOK (A; 0)=A
Решение:
Сори в начале не понял, что нужен евклид, я исправился: 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.
Знаете другой ответ?