Сколько существует трёхзначных чисел сумма цифр которых делится на 5? вывести их. программа паскаль
124
321
Ответы на вопрос:
Var i, a, k, sum : integer; begin k: =0; for i: =100 to 999 do begin sum: =0; a: =i; while a> 0 do begin sum: =sum+(a mod 10); a: =a div 10; end; if sum mod 5 = 0 then begin inc(k); write(i: 5); end; end; writeln; writeln('количество чисел: ', k); end.
Const m=200; var a: array[1..m] of integer; i,k1,k2,p,n: integer; begin write('количество элементов массива: '); readln(n); randomize; write('массив: '); for i: =1 to n do begin a[i]: =random(-40,40); write(a[i],' '); end; writeln; write('k1 k2 через пробел: '); readln(k1,k2); p: =1; if (k1 in [1..n]) and (k2 in [1..n]) and (k2> k1) then begin for i: =k1 to k2 do p: =p*a[i]; writeln('произведение: ',p); end else writeln('недопустимые значения k1 и k2 ',k1,' ',k2); end. количество элементов массива: 10 массив: 18 -40 5 -5 -22 -1 -3 22 -11 37 k1 k2 через пробел: 3 5 произведение: 550
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Алёнка791310.02.2021 14:43
-
osmo200806.03.2023 23:23
-
deloranka09.03.2020 08:12
-
Kerbenbaeva200302.02.2022 13:03
-
krit307.03.2023 21:57
-
Dashyliavvv02.03.2022 02:12
-
serpermiakov17.01.2020 10:34
-
ebotalov16.11.2020 13:01
-
dinamis0513.05.2020 02:19
-
даниил85101.07.2021 04:18
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.