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

Question

Таисьюшка

Вчера, 18:32

+2

Ответы (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.