Ответы
Ответ дал:
0
function gcd(n, m: integer): integer;begin while n <> m do if n > m then n := n - m else m := m - n; gcd := n;end;var i, j, k, n: integer;begin readln(n); k := 0; for i := 1 to n do begin if nod(i, n) = 1 then write(i, ' '); end;end.
Ответ дал:
0
Извините, он ентеры потерял...
Ответ дал:
0
function gcd(n, m: integer): integer;
begin
while n <> m do
if n > m then n := n - m
else m := m - n;
gcd := n;
end;
var i, j, k, n: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
if nod(i, n) = 1 then write(i, ' ');
end;
end.
begin
while n <> m do
if n > m then n := n - m
else m := m - n;
gcd := n;
end;
var i, j, k, n: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
if nod(i, n) = 1 then write(i, ' ');
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад