Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 35
1

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

24.11.2012, 14:20. Показов 2271. Ответов 2
Метки нет (Все метки)

Составьте программу для решения одной из следующих задач:

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

Добавлено через 14 часов 19 минут
забыл написать, что тут с циклами нужно
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 14:20
Ответы с готовыми решениями:

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

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

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

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

2
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,266
Записей в блоге: 1
24.11.2012, 14:38 2
Получить все натуральные числа, меньшие n и взаимно простые с ним
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
24.11.2012, 14:47 3
Лучший ответ Сообщение было отмечено kay76 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
function nod(x,y:integer):integer;
begin
repeat
if abs(x)>abs(y) then x:=x mod y
else y:=y mod x;
until (x=0) or (y=0);
nod:=abs(x+y);
end;
var n,m,i,a,k:integer;
begin
clrscr;
write('n=');
readln(n);
m:=n;
k:=0;
for i:=2 to n-1 do
 begin
  a:=i;
  if nod(a,m)=1 then
   begin
    writeln(i);
    k:=1;
   end;
 end;
if k=0 then write('Нет взаимно простых чисел');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2012, 14:47

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru