Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
novichok_0
0 / 0 / 0
Регистрация: 15.03.2018
Сообщений: 5
1

Как вывести все четырёхзначные числа у которых все цифры разные

20.03.2018, 21:46. Просмотров 437. Ответов 3
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
program gg;
const a:array[1..7] of integer=(60,4324,5457,9810,11,3409,1081);
var b,i:integer;
begin
writeln('исходный массив');
for i:=1 to 7 do write(a[i],' ');
writeln;
writeln('все четырёхзначные числа');
for i:=1 to 7 do
if(a[i]>999) then write (a[i],' ');
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2018, 21:46
Ответы с готовыми решениями:

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

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
1. Построить блок-схему и решить задачу, используя цикл с предусловием: Вывести на экран все...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

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

3
Hitoku
1726 / 1321 / 1405
Регистрация: 28.10.2016
Сообщений: 4,265
Завершенные тесты: 4
20.03.2018, 22:07 2
Что не так с ответом в разделе PABC.Net? Вывести все четырехзначные числа, у которых цифры разные
0
novichok_0
0 / 0 / 0
Регистрация: 15.03.2018
Сообщений: 5
20.03.2018, 22:10  [ТС] 3
Hitoku, нет,всё хорошо,спасибо.только там присутствуют методы и коллекции и не понятно
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5498 / 3768 / 4254
Регистрация: 05.06.2014
Сообщений: 18,876
23.03.2018, 17:32 4
novichok_0, чем не понравилось решение в сообщ, № 3?

Добавлено через 2 минуты
Найти все натуральные числа, состоящие из N цифр, для которых верно утверждение "все цифры числа различны"
0
23.03.2018, 17:32
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2018, 17:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Строки. Вывести на экран все слова, в которых все буквы разные
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....

Вывести все трехзначные числа в которых есть две одинаковые цифры
Вывести на экран все трех значные числа в которых есть две одинаковые цифры.Причем реализовать...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...


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

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

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