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

Question

Лека

29 апреля, 09:34

+5

Ответы (1)

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

Наум · Answer 1

Var

i, j, k:integer;

begin

for i:=1 to 9 do

for j:=0 to 9 do

if ij then

for k:=0 to 9 do

if (ik) and (jk) then writeln (i*100+j*10+k)

end.