Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.