Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

uses crt;
function NOD(m,n:integer):integer;
begin
If m<>0 then NOD:=NOD(n mod m,m) else NOD:=n;
end;
function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;
var x,y: integer;
begin
clrscr;
writeln(Vvedite x y :);
readln(x,y);
writeln (NOK(x,y));
readln;
end.