Написать программу которая с клавиатуры вводит 5 целых чисел и вычисляет среднее арифметическое нечетных среди них.на abc паскале
231
419
Ответы на вопрос:
Var a,s,i,n: integer; begin n: =0; s: =0; for i: = 1 to 5 do begin read(a); if a mod 2 < > 0 then begin s: =s+a; n: =n+1; writeln(a); end; end; write(s/n); end.
Program nd; var n, n1,d, d1: longint; k,a,c: integer; b: boolean; begin write('введите число: '); readln(n); b: = false; k: =0; while (n> 9) and (not b) do begin d: = n mod 10; n1: = n div 10; while (n1> 0) and (not b) do begin d1: = n1 mod 10; b: = d1 = d; n1: = n1 div 10; end; n: = n div 10; end; while n< > 0 do begin c: =n mod 10; if c=d1 then k: =k+1; n: =n div 10; end; if b then writeln('в этом числе повторяется ',k+1,' раз цифра ',d1) else writeln('цифры не повторяются'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
yanayana601.04.2022 14:27
-
лолер228.05.2022 12:19
-
kri222103.03.2023 12:11
-
Сас11118.11.2020 13:09
-
mayerok30.12.2022 10:13
-
DemEntrA13218.03.2021 05:54
-
лехакек15.04.2020 08:52
-
Trap00ra15.04.2020 07:09
-
lllaasaw06.06.2023 21:37
-
Sargisooo18.06.2022 18:18
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.