Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 15.10.2011
Сообщений: 23
1

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

08.11.2012, 13:26. Просмотров 3249. Ответов 1
Метки нет (Все метки)


Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2012, 13:26
Ответы с готовыми решениями:

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

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

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

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
3)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет...

1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,000
Записей в блоге: 1
08.11.2012, 13:43 2
Лучший ответ Сообщение было отмечено Airat007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var i,j,n:longint;
    mn:set of byte;
Begin
    For i:=1000 to 9999 do
    Begin
      j:=0;n:=i;mn:=[];
      While n>0 do
      Begin
        if n mod 10 in mn then j:=1;
        mn:=mn+[n mod 10 ];
        n:=n div 10;
      End;
      if j=0 then writeln(i);
    End;
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2012, 13:43

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

Трехзначные числа, в записи которых нет одинаковых цифр.
Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные...

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

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

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...


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

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

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