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

Question

Информатика

Васяха

29 мая, 21:03

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

+4

Ответы (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.