// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

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.

Пример
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700

0 0

4 года назад

А)Пакет программ,управляющий работой компьютера и обеспечивающих взаимодействие между человеком и компьютером.б)Прикладные прогр

Leeco le [50]

1) софт
2) вспом. прогр.

0 0

4 года назад

Помогите пожалуйста) На субботник по уборке школьной территории пришли ученики 8-х, 9-х и 10-х классов. Восьмиклассников было 2

ТаНюшКА2222

Аааа, почему никто не знает...или просто ленивые, сижу над этим заданием и ничего не понимаю)

0 0

4 года назад