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

Есть ответ
17.12.2022
203

Ответ


сори в начале не понял, что нужен евклид, я исправился: 

uses crt;function NOD(m,n:integer):integer;beginIf m0 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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.