Викиучебник

Реализации алгоритмов/Алгоритм Евклида: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
м Откат правок 109.254.193.194 (обс.) к версии 46.151.249.226
Строка 205:
function nod(a, b: longint): longint;
begin
if a * b = 0 then
thennod nod:= a + b
else if a > b
nod then nod:= nod (b, a mod b, bx)
end;▼
else nod:= nod( a, b mod a);
▲ end;
</source>
 
Источник — https://ru.wikibooks.org/wiki/Реализации_алгоритмов/Алгоритм_Евклида