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

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

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

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

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

Добавлено через 14 часов 19 минут
забыл написать, что тут с циклами нужно
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2012, 14:20
Ответы с готовыми решениями:

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

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

Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей.
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p,...

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

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие...

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,688
Записей в блоге: 1
24.11.2012, 14:38 #2
Получить все натуральные числа, меньшие n и взаимно простые с ним
0
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2012, 14:47

Вывести все простые числа, меньшие n
Дано натуральное число n. Составить программу, для вывода на экран всех простых...

составить подпрограмму, которая печатает все натуральные числа,меньшие N, являющиеся полиндромом.Число N передать подпрограмме как параметр.
составить программу, которая печатает все натуральные числа,меньшие N,...

Дано натуральное число N. Наити все простые натуральные делители этого числа..
Дано натуральное число N. Наити все простые натуральные делители этого числа.....


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

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

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