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

[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 20:06

[andriano]

НОК - это наименьшее число, делящееся на все указанные.
Наименьший делитель, как тебе уже сказали - единица.
Что такое 2 - никто не знает.