Наибольший Общий Делитель

← →
Th © (2002-11-28 18:33) [0]

Подскажите, плз, как найти НОД, в школе делал, а сейчас не соображу, вот что 6 лет института с людьми делают ;(

← →
pasha_golub © (2002-11-28 18:38) [1]

Используй алгоритм Эвклида

← →
pasha_golub © (2002-11-28 18:42) [2]

function NOD(a,b: integer):integer;
var a1,b1,r:integer;
begin
a1 := max(a,b);
b1 := min(a,b);
r := a1 mod b1;
if r > 0 then NOD(b1,r) else Result := a1
end;

← →
Th © (2002-11-28 18:43) [3]

Это я помню, там по-моему рекурсия с каким-то вычитанием, но вот точно вспомнить не получается

Пасиба большое ;)

function NOD(a,b: integer):integer;
var a1,b1,r:integer;
begin
a1 := max(a,b);
b1 := min(a,b);
r := a1 mod b1;
if r > 0 then Result := NOD(b1,r) else Result := a1
end;

Пардон, забыл.

Наибольший Общий Делитель Найти похожие ветки