Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
novichok_0
0 / 0 / 0
Регистрация: 15.03.2018
Сообщений: 5
1

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

20.03.2018, 21:35. Просмотров 1299. Ответов 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:35
Ответы с готовыми решениями:

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

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

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

Как вывести все четырёхзначные числа у которых все цифры разные
программа которая выводит все четырех значение числа у которых все цифры разные я не понимаю...

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

3
Hitoku
1726 / 1321 / 1405
Регистрация: 28.10.2016
Сообщений: 4,265
Завершенные тесты: 4
20.03.2018, 21:58 2
Как очень грубый вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const a: array[1..7] of integer = (60, 4324, 5457, 9810, 11, 3409, 1081);
 
function IsDifferent(x: integer): boolean;
begin
  var digits := new System.Collections.Generic.List<integer>();
  var count := 0;
  while x > 0 do begin
    var t := x mod 10;
    inc(count);
    if not digits.Contains(t) then digits.Add(t);
    x := x div 10;
  end;
  if digits.Count = 4 then Result := true
  else Result := false;
end;
 
begin
  writeln('исходный массив');
  for var i := 1 to 7 do write(a[i], ' ');
  writeln;
  writeln('все четырёхзначные числа');
  for var i := 1 to 7 do
    if(a[i] > 999) and (a[i] < 10000) then write(a[i], ' ');
  writeln;
  writeln('с разными цифрами:');
  for var i := 1 to 7 do
    if IsDifferent(a[i]) then write(a[i], ' ');
end.
0
JuriiMW
2976 / 1525 / 1831
Регистрация: 10.12.2014
Сообщений: 6,063
21.03.2018, 05:34 3
Цитата Сообщение от novichok_0 Посмотреть сообщение
программа которая выводит все четырех значение числа у которых все цифры разные
Если вопрос в том, чтобы вывести все четырёхзначные числа, то можно проще:
Pascal
1
2
3
4
5
6
7
8
9
10
begin
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      if a<>b then
        for var c:=0 to 9 do
          if (a<>c) and (b<>c) then
            for var d:=0 to 9 do
              if (a<>d) and (b<>d) and (c<>d) then
                Write(#32,a,b,c,d);
end.
Не важно, что в памяти компьютера мы оперируем однозначными числами, ведь главное, как это выглядит для пользователя!
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
28907 / 19069 / 7494
Регистрация: 22.10.2011
Сообщений: 33,236
Записей в блоге: 6
21.03.2018, 16:17 4
Как вариант:
Pascal
1
2
3
4
5
begin
  var a := Arr(60, 2434, 5457, 9810, 11, 3409, 1081);
  writeln('Четырехзначные числа из массива, у которых все цифры разные:');
  a.Where(x -> x.InRange(1000, 9999) and (x.ToString.Distinct.Count = 4)).Println;
end.
Добавлено через 1 минуту
Если нужно вообще все четырехзначные с разными цифрами, а не только из массива - то
Pascal
1
2
3
4
begin
  writeln('Все четырехзначные числа, у которых все цифры разные:');
  Range(1000, 9999).Where(x -> x.ToString.Distinct.Count = 4).Println;
end.
1
21.03.2018, 16:17
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2018, 16:17

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

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

Вывести на экран числа,в которых цифры разные
Полбзователь с клавиатуры задает целое позитивное число N (1&lt;N&lt;10). Пользователь должен ввести N...

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


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

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

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