НОД (делфи)

[RIOs]

Найти наибольший общий делитель четырех чисел.

Var A,B,C,K,M,N: Integer;
Procedure Evklid;
Begin
While M<>N Do
If M>N
Then M:=M-N
Else N:=N-M;
K:=M
End;
Begin
Write('a=');
ReadLn(A);
Write('b=');
ReadLn(B);
Write('c=');
ReadLn(C);
M:=A+B+C;
N:=Abs(A-B-C);
Evklid;
M:=K;
N:=A*B*C;
Evklid;
WriteLn('nod=',K);
readln;
End.

для 3 чисел получалось (так в учебнике было написано) , но как только я стал пытаться найти НОД для 4х чисел сразу же стало что-то не так. Я добавил лишь переменную С.

[Mad_Cat]

 нод(a,b,c,d)=нод(нод(a,b),нод(d,c));

[RIOs]

не много не понял как это будет выглядеть в программе.

[RIOs]

я не понял как в программе все это написать. наибольший общий делитель мы находим как 2 разных нод у 2х разных чисел, так? только как-то не правильным получится общий нод.

[Serge_Bliznykov]

а при чём здесь Дельфи, Паскаль и другие языки программирования?
Вы математику за 4-5 класс (начальная школа) помните?
НОД - это наибольший общий делитель?
И он может быть найден для двух чисел, а может - для трёх, четырёх и т.д.
Когда дети решают в тетрадке, они делают так - для каждого числа M выписывают в строчку все его делители (начиная с 1 и заканчивая M). Потом для второго числа, потом для третьего и т.д.
Когда все делители выписаны, то отдельно выписывают ОБЩИЕ делители - это те делители, которые являются делителем для любого из чисел (т.е. на каждой строчке напротив каждого числа).

Потом берёт из них НАИБОЛЬШИЙ.
всё.

ну и возвращаясь к программированию.
НОД(A,B,C,D) = НОД(A, НОД( B, НОД(С, D) ) )
т.е. находите нод любых двух чисел. потом находите НОД от полученного числа и следующего числа, потом находите НОД от полученного числа и следующего числа и т.д. пока числа не кончатся. Полученный в конечном итоге НОД и будет наибольшим общим делителем ВСЕХ чисел..

p.s. на форуме полно примеров вычисления НОД. В том числе и на Паскале...