Question

Помогите найти юному математику все трехзначные числа, в десятичной записи которых нет одинаковых цифр и вывести эти числа в возрастающем порядке. Составьте блок-схему алгоритма или опишите алгоритм на русском языке, или составьте программу на языке программирования

Answer 1

Программа на языке Паскаль:

var

 n, a, b, c, t: integer;  

begin

 for n := 100 to 999 do

 begin

   a := n div 100;

   b := (n div 10) mod 10;

   c := n mod 10;

   if (a <> b) and (b <> c) and (c <> a) then Writeln(n);

 end;

end.

Answer 2

В описании переменных осталась одна лишняя (t). Хотел её использовать для временных значений, но не понадобилась. Лучше её убрать оттуда, а то я забыл.