Question

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

Answer 1

Program Program1;
var
i,k,a,b,c:integer;
begin
k:=0;
for i:=100 to 999 do
begin
a:=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.