На языке Паскаль решить задачу: Вывести на экран в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
if i<>j then
for k:=0 to 9 do
if (i<>k) and (j<>k) then writeln(i*100+j*10+k)
end.