Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
kay76
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 35
#1

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

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

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

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

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

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

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b - Pascal
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b. Объясните как найти простые числа?а то я совсем не поняла...

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

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

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

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

2
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,318
Записей в блоге: 1
24.11.2012, 14:38 #2
Получить все натуральные числа, меньшие n и взаимно простые с ним
0
Puporev
Модератор
52844 / 40655 / 13908
Регистрация: 18.05.2008
Сообщений: 94,365
24.11.2012, 14:47 #3
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 передать подпрограмме как параметр. - Pascal
составить программу, которая печатает все натуральные числа,меньшие N, являющиеся полиндромом.Число N передать подпрограмме как параметр. ...

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

Задача на for. Получить все совершенные числа, меньшие n - Pascal
Дано натуральное число n. Получить все совершенные числа, меньшие n. Число называется совершенным, если оно равно сумме всех своих...

Получить два множества: все простые числа из этого диапазона и все остальные - Pascal
Задача: Дано множество целых числа от 8 до 22. Получить два множества: все простые числа из этого диапазона и все остальные. Program...


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

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

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