Задача, Наименьший делитель.. . Опции

[Casual]

Есть задача: наибольший делитель 3 чисел.

Program NOD3;
var a, b, c:integer;
function NOD(a:integer; b:integer):integer;
begin
while(a<>0) and (b<>0) do if a>=b then a:=a mod b else b:=b mod a;
NOD:=a+b;
end;
begin
writeln('vvedite 3 chisla');
readln(a, b, c);
NOD(a,b);
writeln('NOD=',NOD(NOD(a,b),c));
readln;
end.

теперь нужно наити НАИМЕНЬШИЙ общий делитель 3 чисел a,b,c. Как это сделать?

Сообщение отредактировано: Casual - 13.05.2008 16:06

[Casual]

А чем тогда 2 является? Мне нужно ввести 3 числа и найти такое число, на которое делятся все эти 3 числа, но чтобы оно было самым маленьким. Наверно это и называется НОК?