Реализации алгоритмов/Алгоритм Евклида: различия между версиями
Содержимое удалено Содержимое добавлено
Silanti (обсуждение | вклад) →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;
end;
▲ nod := a
</source>
|