Найти юному все трехзначные числа, в десятичной - вопрос №9414203 от BlaSta 09.12.2021 13:16

Question

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

BlaSta · Answer

Программа на языке Паскаль: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....