<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
Сколько бы ни размышляли философы над перспективами
<span>информационного общества, о сущности информационно-компьютерной революции, философия остается верной сама себе и выполняет лишь ей присущую функцию, только когда она занимается человеком. </span>
<span>То, что мы привыкли называть Человеком, совпадает с понятием общество. Но помимо этого абстрактного родового существа, обитающего в философских трактатах, статистически усредненного и обобщенного, наш мир населен обычными, нормальными, живыми людьми. Эти люди живут и умирают, борются, побеждают, терпят поражения, занимаются бизнесом, работают на заводах и в конторах, ленятся, бездельничают, рожают детей, страдают от болезней и старости, обладают властью или сопротивляются ей, занимаются наукой и философией или бедствуют в полном невежестве в глухих трущобах. </span><u>Я думаю написала неправильно все таки сам проверь)
</u><u>
</u>