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

Question

Информатика

Деня

10 июня, 20:59

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

+3

Ответы (1)

Знаете ответ?

Алексюша · Answer 1

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 (ab) and (ac) and (bc) then write (i,' ') ;

end;

end.

проверь (для паскаля)