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

Есть ответ
17.12.2022
323

Ответ


Program Program1;vari,k,a,b,c:integer;begink:=0;for i:=100 to 999 dobegina:=i div 100;b:=i div 10 mod 10;c:=i mod 10;if (b>a) and (c>b) then inc(k);end;writeln('Всего: ',k);end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.