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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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. проверь(для паскаля)