Напечатать в возрастающем порядке

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

Question

Информатика

Парамон

23 февраля, 22:34

Напечатать в возрастающем порядке

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

+4

Ответы (1)

Знаете ответ?

Влас · Answer 1

Uses crt;

var i:integer;

begin

for i:=100 to 999 do

if ((i mod 10) (i div 100)) and ((i mod 10) (i mod 100 div 10)) and

((i div 100) (i mod 100 div 10)) then writeln (i) ;

end.

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

Напечатать в возрастающем порядке

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