Знайти всі натуральні числа, менші заданого натурального - вопрос №8166553 от oksankavelsh 07.07.2020 17:10

Question

Информатика: Знайти всі натуральні числа, менші заданого натурального м і взаємно прості з ним.

oksankavelsh · Answer

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....