Ответы на вопрос:
Var i,n,sum,j: integer; m: string; beginfor i: =10000 to 99999 do beginm : =inttostr(i); for j: =1 to 5 dosum: = sum + strtoint(m[j]); if sum = 7 thenwrite(i: 6); sum: =0; end; end.
Популярно: Информатика
-
Составить в Excel таблицу значений функции двух переменных F(x,y),...
Gosha34604.02.2021 09:20 -
Датчик суреттері мен атауларын сәйкестендір даю...
Dapx31.10.2020 21:42 -
74 бет үй тапсырмасы деп тұрады көмек тесіндерші Информатика ...
shm0618.03.2020 12:02 -
1. switch операторының құрылымы қандай? 2. defauit операторының қызметі...
rayl222.09.2022 13:29 -
Написать программу для МТ подсчета количества гласных букв во входном...
Shummer02.02.2020 03:04 -
Сколько единиц в двоичной записи числа x? x=254маленькая 8−457маленькая8...
elenatolmachev27.12.2020 16:14 -
нужно написать программный код на с++, по этой блок схеме...
tiamaressp035gw26.08.2020 21:12 -
Сделайте столбачатую диаграмму в Excel, на любую тему, ...
Андрей6845653236726.01.2023 22:00 -
Зачем нужна обработка естественного языка в контексте информационных...
AlexSubbotin1119.05.2021 22:58 -
Как скачать зум я его выкинула просто ...
hdvzuebgd18.03.2021 07:32