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

Вывести на экран все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

19.03.2014, 16:13. Просмотров 1028. Ответов 1
Метки нет (Все метки)

Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

Помогите :с

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

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2014, 16:13
Ответы с готовыми решениями:

Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр
2. Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

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

Напечатать в возрастающем порядке все двузначные числа,в десятичной записи которых нет одинаковых цифр
Без массивов 1 Напишите программу вычисления суммы для n слагаемых вида (i+1) в...

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

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

1
ildwine
Супер-модератор
3470 / 2049 / 1253
Регистрация: 04.03.2013
Сообщений: 4,963
Записей в блоге: 1
19.03.2014, 18:08 2
Лучший ответ Сообщение было отмечено BasiG как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i : integer;
begin
  for i := 1000 to 9999 do
  if ((i mod 10) <> (i div 10 mod 10)) and {4 <> 3}
     ((i mod 10) <> (i div 100 mod 10)) and {4 <> 2}
     ((i mod 10) <> (i div 1000)) and {4 <> 1}
     ((i div 10 mod 10) <> (i div 100 mod 10)) and {3 <> 2}
     ((i div 10 mod 10) <> (i div 1000)) and {3 <> 1}
     ((i div 100 mod 10) <> (i div 1000)) then {2 <> 1}
  write(i:6);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2014, 18:08

Вывести на экран четырехзначные числа без повторений цифр
вывести на экран четырехзначные числа без повторений цифр

Вывести на экран все двузначные числа, произведение цифр которых больше n.
1)Заданное натуральное число n. Вывести на экран все двузначные числа, произведение цифр которых...

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


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

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

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