Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Олегжа
1 / 1 / 0
Регистрация: 02.05.2012
Сообщений: 15
#1

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

02.05.2012, 21:09. Просмотров 769. Ответов 3
Метки нет (Все метки)

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

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

Дано натуральное число n. Вывести все простые делители данного числа.
Задача*3. Дано натуральное число n. Вывести все простые делители данного...

Дано натуральное число n. Определить все простые числа в диапазоне [2, n]
Дано натуральное число n. Определить все простые числа в диапазоне . ...

Дано натуральное число.Найти количество цифр числа
1)Дано натуральное число.Найти количество цифр числа. 2)Найти колличество...

Дано натуральное число N. Поменять порядок цифр числа N на обратный
Дано натуральное число N. Поменять порядок цифр числа N на обратный. Freebasic

3
Azarduh
16 / 16 / 6
Регистрация: 11.01.2011
Сообщений: 33
08.05.2012, 11:23 #2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
INPUT n
 FOR i=1 TO n
 s=0
   FOR j=1 TO i
   IF i MOD j=0 AND n MOD j=0 THEN s=s+1
   NEXT j
 IF s=1 THEN PRINT i
 NEXT i
0
Олегжа
1 / 1 / 0
Регистрация: 02.05.2012
Сообщений: 15
09.05.2012, 13:23  [ТС] #3
Спасибо, но это решение не полностью. Нужно взаимно простые с ним.
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.06.2016, 14:24 #4
проверено

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DECLARE FUNCTION NOD! (a!, b!)
CLS
INPUT "N = "; n
 
FOR i = 2 TO n - 1
   IF NOD(i, n) = 1 THEN PRINT i;
NEXT i
END
 
FUNCTION NOD (a, b)
   IF a = 0 OR b = 0 THEN
      NOD = a + b
   ELSE
      IF a > b THEN
         NOD = NOD(a MOD b, b)
      ELSE
         NOD = NOD(a, b MOD a)
      END IF
   END IF
END FUNCTION
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 14:24

Дано натуральное число N. Проверить, будут ли все цифры этого числаразличными?
Дано натуральное число N. Проверить, будут ли все цифры этого числа различными?...

Дано натуральное число п. Переставить первую и последнюю цифры этого числа
Задача 3. Дано натуральное число п. Переставить первую и последнюю цифры этого...

Дано натуральное число п. Приписать по единице перед и после этого числа
помогите решить задачку (qbasic) Дано натуральное число n. Приписать по...


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

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

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