Первый вариант алгоритма Евклида для n чисел можно модифицировать так:
Procedure nEuclid(a:mas; n:Integer;
Var d:Integer);
Var i:Integer;
Begin
d:=a[1]; i:=1;
While (d<>1) And (i<=n) Do Begin
Euclid (d,a[i],d); i:=i+1;
End;
End;
На каком факте основывается данная модификация? в Pascal

ДенисБратанюк    2   20.04.2021 10:57    1