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

Содержимое удалено Содержимое добавлено
→‎Pascal: Возвращаемое значение поместил внутрь функции
Строка 205:
<source lang="pascal">
function nod (a, b: LongInt): LongInt;
 
var
t: LongInt;
begin
while b > 0 do
Строка 214 ⟶ 212 :
t := a mod b;
a := b;
b := t;
end;
 
nod result := a;
end;
 
nod := a
</source>