Pascal.
Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.
Даны четыре натуральных числа. Найти наименьшее общее кратное (НОК) для этих четырех чисел. Поиск НОК двух чисел оформить функцией.
More Questions From This User See All
Answers & Comments
function NOD(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOK:=a*b div NOD(a,b)
end;
Begin
Read(a,b,c,d);
x:=NOK(a,b);
y:=NOK(c,d);
Writeln(NOK(x,y));
end.