Знайти всі натуральні числа, менші заданого натурального - вопрос №8165876 от GoldenLynx1999 08.09.2020 18:47

Question

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

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