Регистрация
sofka123890
29.11.2022 07:46
Информатика
Есть ответ 👍

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

139
418
Посмотреть ответы 2

Ответы на вопрос:

sitnikova03
sitnikova03
4,4(42 оценок)
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.
миша1128
миша1128
4,6(81 оценок)
Материальный обънк мы ощущаем, чувсвцем. , он имеет свой вес и объем , а информационный нет!

Популярно: Информатика