Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8

Найти максимальное трехзначное число

22.12.2016, 14:39. Показов 626. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти максимальное трехзначное число, которое
одновременно является как простым числом, так
и палиндромом (ответ 929)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
REM
REM  929
REM
 
CLS
 
FOR x = 9 TO 1 STEP -2
FOR y = 9 TO 0 STEP -1
   z = 101 * x + 10 * y
   FOR d = 3 TO z \ 2
      IF z MOD d = 0 THEN 500
   NEXT d
   PRINT x; y; x
   END
500
NEXT y, x
END
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.12.2016, 14:39
Ответы с готовыми решениями:

Найти трёхзначное число, которое первым встретится дважды
Найти трёхзначное число, которое первым встретится дважды Условие задачи 1. Дан ряд чисел ln2, ln3, ln4, ln5, ln6, ln7, ... (длина не...

Запрашивать у пользователя трехзначное число, пока не будет введено число, кратное 11-ти (WHILE/WEND)
Не могу составить программу. Используя операторы цикла WHILE … WEND, составьте программу, которая запрашивает у пользователя...

Найти максимальное число массива
Дан массив из 20 случайных целых чисел, каждое из которых лежит в пределах от 10 до 50. Найти максимальное число и его номер, а ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.12.2016, 14:39
Помогаю со студенческими работами здесь

Найти максимальное число и его номер
Дан массив из 15 целых чисел, заданных оператором DATA. Найти максимальное число и его номер, а если таких чисел...

Найти минимальное и максимальное число в квадрате
13-й строк не работает CLS input n s = n ^ 2 PRINT s a$ = STR$(s) c = LEN(a$) min = 10 max = 0 DIM a(c)

Найти минимальное число среди положительных и максимальное число среди отрицательных
Дана некоторая последовательность из целых чисел оканчивающихся нулем. Найти минимальное число среди положительных и максимальное число...

Найти максимальное число массива и его номер
Дан массив из 15 целых чисел, заданных оператором DATA. Найти максимальное число и его номер, а если таких чисел...

Записать трехзначное число наоборот
В qbasic нужно записать трехзначное число наоборот.


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru