Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 / 1 / 0
Регистрация: 19.12.2009
Сообщений: 15

Вывести на экран 4-х-значные числа Армстронга

20.12.2009, 21:26. Показов 1632. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вывести на экран 4-х-значные числа Армстронга

Добавлено через 1 минуту
Цитата Сообщение от artiomdark Посмотреть сообщение
Вывести на экран 4-х-значные числа Армстронга
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
a,b,c,d,n,s:integer;
begin
For a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
N:=A*1000+b*100+c*10+d;
S:=a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d;
if N=S then writeln(N);
end;
end.
так,,,???
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.12.2009, 21:26
Ответы с готовыми решениями:

Найти N-значные числа, не превосходящие заданного числа, которые делятся на каждую из своих цифр
Найти все натуральные N-значные числа, не превосходящие заданного числа, которые делятся на каждую из своих цифр. N-значные числа, не...

3-х значные числа
80. Найти все трехзначные числа, обладающие свойством: число делится на все свои цифры

Вывести все 3-х значные числа, сумма цифр которых четна
написал код, но работает неправильно, исправьте, пож-та var a,b,m:longint; begin a:=100; b:=0; while a<=999 do begin...

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

Найти N-значные числа, таких, что сумма кубов цифр числа равны этому числу
Найти N-значные числа, которые удовлетворяют условие, что сумма кубов цифр числа равны этому числу.

Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры
Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры. Найти их сумму. Использовать процедуру пользователя.

Вывести на экран все 2х значные числа у которых 1 и 2 цифры равны меж собой.
1. Решить тремя операторами цикла p=1*2*3*..*n ; 2. Вывести на экран все 2х значные числа у которых 1 и 2 равны меж собой.

4x значные числа
Найти все 4-х значные числа в которых ровно 2 одинаковых цифры.

3х значные числа
Помогите решить задачу -------------------------- Вывести на экран все трёхзначные числа, которые деляться на вторую цифру своей...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru