<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer); begin while b>0 do (a,b):=(b,a mod b); r:=a end;
begin var a,b,c,d:integer; Write('Введите четыре натуральных числа через пробел: '); Read(a,b,c,d); var p,q,r:integer; NOD(a,b,p); q:=(a*b) div p; // НОК(a,b) NOD(c,d,p); r:=(c*d) div p; // НОК(c,d) NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d) Writeln('НОК=',r) end.
<u>Пример</u> Введите четыре натуральных числа через пробел: 15 23 36 150 НОК=20700