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

Найти все четырехзначные числа по условию

08.05.2016, 08:23. Показов 602. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти все четырехзначные числа такие, что сами они
равны сумме четвертых степеней своих цифр.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
REM
REM  OTBET: 1634; 8208; 9474
REM
 
CLS
 
FOR x = 1 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
FOR u = 0 TO 9
   u1 = 1000 * x + 100 * y + 10 * z + u
   u2 = x ^ 4 + y ^ 4 + z ^ 4 + u ^ 4
   IF ABS(u1 - u2) < .001 THEN PRINT x; y; z; u
NEXT u, z, y, x
 
END
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.05.2016, 08:23
Ответы с готовыми решениями:

Найти все четырехзначные числа, где все четыре цифры составляющие число одинаковы
Даны четырехзначные целые числа от 1000 до 9999.Найти все четырехзначные числа,где все четыре цифры составляющие число одинаковы.Выводить...

Найти все четырехзначные числа, у которых первая цифра равна сумме трех последних
Найти все четырех знаные числа в интервале от 1000 до 9999,у которых первая цифра равна сумме трех последних.

Найти все четырёхзначные числа, удовлетворяющие условию
Народ, нужна помощь! Задача такая. Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы...

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

Даны четырехзначные целые числа. Найти все числа, где все четыре цифры, составляющие число, одинаковы
Всем доброго времени суток.Пожалуйста ,напишите в паскале следующие задачи: №2 Даны четырехзначные целые числа от 1000 до 9999.Найти...

Найти все четырехзначные числа, у которых все цифры различны
Операторы цикла: найти все четырехзначные числа, у которых все цифры различны.

Найти все четырехзначные числа, у которых все цифры различны
4)Найти все четырехзначные числа, у которых все цифры различны.

Найти все четырехзначные числа, у которых все цифры различны
Найти все четырехзначные числа, у которых все цифры различны.

Найти все четырёхзначные числа
Всем привет, объясните мне пожалуйста задачу, она заключается в том, что бы найти все четырёхцыфровые числа, в записи которых не больше...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru