НОК трех натуральных чисел.

[meta]

Вводятся 3 числа. Нужно найти их НОК. Искать, начиная с самого большого числа.

Помогите, пожалуйста, решить задачку. Знаю, что похожие уже есть, но мне надо без использования процедур и функций.

[alex_fcsm]

переделай http://programmersforum.ru/showthread.php?t=94730

[meta]

но ведь и там процедуры с функциями...

[alex_fcsm]

Ну там есть идея. Реализуй по-другому и все

[meta]

у меня именно с реализацией проблема.

[alex_fcsm]

Выкладывай что получилось

[Mad_Cat]

program NOK_3;
var
a,b,c,n,n1: integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if a>b then n:=a
else n:=b;
while not ((n mod a=0) and (n mod b=0)) do
n:=n+1;
if c>n then n1:=c
else n1:=n;
while not ((n1 mod n=0) and (n1 mod c=0)) do
n1:=n1+1;
writeln('HOK=',n1);
end.

и по твоему алгоритму

program NOK_3;
var
a,b,c,n,n1: integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if a>b then n:=a
else n:=b;
if c>b then n:=c;
n1:=n;
while not ((n mod a=0) and (n mod b=0))and (n mod c=0))  do
n:=n+n1;
writeln('HOK=',n);
end.

[meta]

собственно, как найти НОК? максимальное из введенных чисел делим на два других, если остаток равен нолю, то это и есть НОК, если нет - надо к этому максимуму добавить первичный максимум (в первый раз они равны). ну, вот что у меня получилось.

[meta]

Mad_Cat, спасибо большое за помощь)))