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

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

Задать свой вопрос
Диман Демьяшкин
Превосходно. Паскаль либо c++?
Есения
Паскаль
Николай Хнокоян
Ctqxfc ,eltn)
Олег Лапшеннов
На данный момент будет)
Тимур
Ну что там??
Аделя Жовнерчук
Практически...
Милана Лагодзе
Теснее заканчиваю
Владислав Разулилов
Готово??
Вован Вальнев
Да!
Камилла Губерман
Ну
1 ответ
Function gcd(n, m: integer): integer;begin    while n lt;gt; m do    if n gt; 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.
Владислав Ратницын
Извините, он ентеры растерял...
Элина Ротманова
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт