Ответы на вопрос:
2- uses crt; var n,i,k: integer; begin clrscr; write('введите n='); readln(n); for i: =100 to 999 do if (i div 100+i mod 100 div 10+i mod 10=n) then inc(k); writeln('всего ',k); readln end.
Популярно: Информатика
-
Albina196722.11.2022 20:23
-
dimamc9908.07.2020 04:37
-
3eбpa06.01.2021 09:24
-
Даріна1111111121.09.2021 17:25
-
Вано15303.04.2021 18:37
-
shyndari30.07.2021 21:49
-
Топор22801.03.2020 21:29
-
kirill87719.02.2023 19:20
-
CatMyBoss23.04.2022 11:54
-
princhesnurss08.05.2022 09:11