для трёхзначных чисел...

для трёхзначных чисел до N (N вводится с клавиатуры) вывести на экран только те ,у которых все цифры в представленииразличны.

 

var  i,n,a,b,c    :integer;
begin
read(n);
i:=99;
for i:=100 to n do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:=i div 100;
if (a<>b) and (a<>c) and (b<>c) then write(i,' ');
end;
end.
 
 
 
 
проверь(для паскаля)