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

Ответы 1

  • 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.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years