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

poddubtsev poddubtsev    1   30.09.2019 01:40    4

Ответы
brainsofi1 brainsofi1  09.10.2020 04:28

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

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.


Найти юному все трехзначные числа, в десятичной записи которых нет одинаковых цифр и вывести эти чис
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика