Напишите программу паскаль 40 найти сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.
105
218
Ответы на вопрос:
Var i,s,n,m: integer; begin write('количество чисел равно '); readln(n); s: =0; writeln('введите все числа'); for i: =1 to n do begin read(m); if (abs(m mod 10)=5) and (m mod 3=0) then s: =s+m end; writeln('s=',s) end.
Const n = 4; m = 4; var a: array [,] of integer : = (( 1, 2, 3, 4), ( 5, 6, 7, 8), ( 9, 10, 11, 12), (13, 14, 15, 16)); i, j, s: integer; begin writeln('исходная матрица'); for i : = 0 to n-1 do begin for j : = 0 to m-1 do write(a[i,j]: 3); writeln; end; for i : = 0 to (m - 1) div 2 do begin s : = 0; for j : = 0 to n - 1 do s : = s + a[j, i*2]; writeln ('сумма в столбце ', i*2: 3, ' = ', s); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
123456789124824.03.2021 11:16
-
Vip6longin19.07.2020 21:42
-
OlgaAlekseeBna28.09.2022 07:51
-
gerty100021.03.2022 02:56
-
julyazolotko2022.09.2021 09:21
-
ник23090315.09.2022 02:55
-
pro100pakp01iyt29.01.2021 12:50
-
агм222.10.2022 05:52
-
drsamsoff04.01.2021 02:52
-
moskvina0801.06.2021 11:37
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.