Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 192:
begin
while a * b <> 0 do
else b:= b mod a;
nod:= a + b;
end;
Строка 204 ⟶ 203 :
function nod(a, b: longint): longint;
begin
if a * b = 0
then nod:= a + b
else if a > b
else nod:= nod( a
end;
</source>
|