Выведите на экран все четырехразрядные числа, в записи которых нет одинаковых цифр - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Выведите на экран все четырехразрядные числа, в записи которых нет одинаковых цифр»

textual
Листинг программы
var
  a, b, c, d: integer;
 
begin
  for a := 1 to 9 do
    for b := 0 to 9 do if not (b in [a]) then
      for c := 0 to 9 do if not (c in [a, b]) then
        for d := 0 to 9 do if not (d in [a, b, c]) then write(a, b, c, d, ' ');
end.

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы