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

QBasic

Войти
Регистрация
Восстановить пароль
 
Олегжа
1 / 1 / 0
Регистрация: 02.05.2012
Сообщений: 15
#1

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

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

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

Дано натурально число n. Вывести все натуральные числа, меньше n и взаимно простые с ним - QBasic
Помогите, надо на завтра, а у меня не получается Добавлено через 3 минуты REM "lab 3 z 3 " CLS INPUT "natural'noe 4uclo "; n j...

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

Дано натуральное число n. Определить все простые числа в диапазоне [2, n] - QBasic
Дано натуральное число n. Определить все простые числа в диапазоне . Добавлено через 14 часов 43 минуты ребят, если у кото-то есть...

Дано натуральное число.Найти количество цифр числа - QBasic
1)Дано натуральное число.Найти количество цифр числа. 2)Найти колличество трехначных чисел сумма цифр которых равно А, а само число...

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

Дано натуральное число N. Проверить, будут ли все цифры этого числаразличными? - QBasic
Дано натуральное число N. Проверить, будут ли все цифры этого числа различными? Напримердля N=12345 ответ «ДА»; для N=12234 ответ «НЕТ» ...

3
Azarduh
16 / 16 / 5
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Дано натуральное число п. Переставить первую и последнюю цифры этого числа - QBasic
Помоги пожалуйста. Видел это задание на языках Паскаль и Basic. Но на Qbasic не нашёл.Буду благодарен вам!

Даны натуральные числа п и т. Вывести все числа в диапазоне от п до т, которые заканчиваются на 6, 8 или 9 - QBasic
Даны натуральные числа п и т. Вывести все числа в диапазоне от п до т, которые заканчиваются на 6, 8 или 9.


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

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

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