Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (программа Паскаль)
Вопрос посетителя
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
Ответ эксперта
program z1;
uses crt;
var a,b,c:integer;
begin
for a:= 1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a<>b)and (b<>c)and (a<>c) then write ((a*100+b*10+c):5);
end.