Среди трехзначных натуральных чисел вывести в строчку те, у которых все цифры различны

Question

Информатика

Хариесса

25 августа, 19:14

Среди трехзначных натуральных чисел вывести в строчку те, у которых все цифры различны

+1

Ответы (1)

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

Зинура · Answer 1

Var

A, b, c, d:integer;

Begin

For A: = 100 to 999 do

Begin

b:=A div 100;

c: = (A div 10) mod 10;

d:=A mod 10;

if (bc) and (bd) and (cd) then Write (A,' ')

End;

End.