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

Question

Информатика

Вера

12 июля, 12:38

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

+3

Ответы (1)

Знаете ответ на вопрос?

Матильда · Answer 1

var k, p, v, t, i: integer;

begin

i:=100;

k:=0;

while i 1000 do begin

p:=i div 100;

v: = (i div 10) mod 10;

t:=i mod 10;

if (t > v) and (p < v) then

inc (k) ;

inc (i) ;

end;

writeln (k) ;

end.