Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Комбинаторика https://www.cyberforum.ru/ turbo-pascal/ thread980487.html
Вечер добрый, блин что сделал не так подскажите пожалуйста:Дана последовательность n целых чисел. Найдите самую длинную возрастающую подпоследовательность. :help: const nmax=100; var a:array of...
Turbo Pascal Выполнить суммирование членов бесконечного ряда
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10-4...10-10 или пока не будет...
Turbo Pascal Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных...
Turbo Pascal Составьте программу вычисления суммы элементов от первого отрицательного и до конца Составьте программу вычисления суммы элементов от первого отрицательного и до конца. в паскале надо,помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread980401.html
Turbo Pascal Выполнить суммирование членов бесконечного ряда https://www.cyberforum.ru/ turbo-pascal/ thread980388.html
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10-4...10-10 или пока не будет...
Выполнить суммирование членов бесконечного ряда Turbo Pascal
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10-4...10-10 или пока не будет...
Turbo Pascal Определить количество появлений буквы "А" в строке
Напиши пожалуйста программу, которая: а) определяет кол-во появлений буквы "А" в строке б) заменяет "А" на "*"
Turbo Pascal Выполнить суммирование членов бесконечного ряда 1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10-4...10-10 или пока не будет... https://www.cyberforum.ru/ turbo-pascal/ thread980363.html
Turbo Pascal Вычислить значения функций https://www.cyberforum.ru/ turbo-pascal/ thread980338.html
1. Вычислить значения функций F1(x) и F2 (x) таким образом, чтобы результаты были сформированы в виде трех одномерных массивов (x, F1(x) и F2 (x)). Вывести полученные массивы в виде таблицы вида:...
Turbo Pascal Составить программу, отладить ее и провести на ЭВМ соответствующие вычисления Составить программу, отладить ее и провести на ЭВМ соответствующие вычисления. Дан массив из n элементов. Найти наибольший элемент массива. https://www.cyberforum.ru/ turbo-pascal/ thread980331.html
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
17.10.2013, 23:03 0

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

17.10.2013, 23:03. Показов 6919. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено risky fellow как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a, b, c, d: 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
          if (a <> b) and (a <> c) and (a <> d) and
             (b <> c) and (b <> d) and
             (c <> d) then
            Write(a, b, c, d, #32);
  Readln
end.


Вернуться к обсуждению:
Напечатать все четырехзначные натуральные числа, в десятичной записи которых нет двух одинаковых цифр
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2013, 23:03
Готовые ответы и решения:

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

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

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

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

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