Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 25.06.2011
Сообщений: 43
1

Получить все натуральные числа, меньшие n и взаимно простые с ним

16.05.2012, 18:16. Показов 1860. Ответов 1
Метки нет (Все метки)

Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1).
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2012, 18:16
Ответы с готовыми решениями:

Получить все натуральные числа, меньшие N и взаимно простые с p
Даны натуральные числа N и p. получить все натуральные числа, меньшие N и взаимно простые с p ...

Дано натуральное число n. Получить все натуральные числа меньше n и взаимно простые с ним
дано натуральное число n. получить все натуральные числа меньшие n и взаимно простые с ним с...

Получить меньшие числа и взаимно простые
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним.

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...

1
For i:=0 to 150 do
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 286
16.05.2012, 19:49 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
n,i,nod:integer;
procedure nodd(var a,b,n:longint);
begin
while a*b>0 do
if a>b then a:=a mod b else b:=b mod a;
n:=a+b;
end;
 
begin
readln(n);
i:=1;
while i<n do begin
nodd(i,n,nod);
if (nod=1) then writeln(i);
i:=i+1;
end;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2012, 19:49

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...

Даны натуральные взаимно простые числа n,p.
Даны натуральные взаимно простые числа n,p. Найти m такое, что, во-первых, m&lt;p, во-вторых,...

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых...

Задано натуральное число n. Получить все натуральные числа, меньше n и взаимопростые с ним
Помогите пожалуйста решить! Задано натуральное число n. Получить все натуральные числа меньше за n...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.