Програма для нахождения НОК трех чисел

[Draips]

Написать програму для нахождения Нок трех чисел

[ROMA2PVT]

Так трёх или пяти?

[Draips]

или трех или пять,что по легче,на два у меня есть прога а на три не могу

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=93324
Вот эту переделать сможешь?

[NSV]

Принцип такой вроде...
Там просто находится НОК от двух чисел.
Чтобы найти НОК от трех чисел, нужно вместо первого числа поставить НОК от двух первых чисел, а вместо второго числа записать третье.
Чтобы найти НОК от четырех чисел, нужно опять искать НОК от двух чисел, только первым числом будет НОК от трех, а вторым числом будет четвертое число.

И дальше в том же духе

[ROMA2PVT]

program f;
var a, b, c,rez,nok1,nok2: integer;
procedure NOK (k, t:integer;var r:integer);
var z: integer;
begin
if k>t then z:=k
else z:=t;
while not ((z mod k=0) and (z mod t=0)) do
z:=z+1;
r:=z;
end;

begin
writeln ('zadayte 4 chisla');
readln (a, b, c);
nok(a,b,nok1);
nok(nok1,C,rez);
writeln ('rezultat=', rez);
end.

Вот пределал.Нет там всё чётко.Введи здесь например 1,2,3 (результат НОК 6-верно),и введи 2,1,16 (результат 16-верно).Всё чётко.