А умножить на б умножить на с
Для пары целых ненулевых чисел (a,b) существует соотношение
НОК(a,b)*НОД(a,b)=a*b
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function gcd(a,b:integer):integer;
// НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function lcm(a,b:integer):=(a*b) div gcd(a,b); //НОК
begin
var a:=36;
var b:=54;
var c:=18;
var d:=15;
Writeln('НОК(',a,',',b,',',c,',',d,')=',
lcm(lcm(lcm(a,b),c),d))
end.
<u><em>Тестовое решение:</em></u>
НОК(36,54,18,15)=540
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>
Существуют dxc блакнот power point office word чем отличаются не знаю прости (