Составьте программу, которая последовательно запросит 10 целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных чисел.
270
290
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var a: integer; var (ke,ko): =(0,0); for var i: =0 to 9 do begin write('введите число ',i+1,': '); read(a); if a.iseven then ke+=1 else ko+=1 end; writeln('нечетных чисел ',ko,', четных ',ke) end. пример введите число 1: 45 введите число 2: -25 введите число 3: 8 введите число 4: 0 введите число 5: 16 введите число 6: 37 введите число 7: 111 введите число 8: -5345 введите число 9: 23 введите число 10: 15 нечетных чисел 7, четных 3
Var q,w,e,r,t,y,u,i,o,p,l,s,a: integer; begin writeln('введите 10 целых чисел'); readln(q,w,e,r,t,y,u,i,o,p); s: =0; a: =0; for l: =0 to 9 do begin if l=0 then if q mod 2=0 then s: =s+1 else a: =a+1; if l=1 then if w mod 2=0 then s: =s+1 else a: =a+1; if l=2 then if e mod 2=0 then s: =s+1 else a: =a+1; if l=3 then if r mod 2=0 then s: =s+1 else a: =a+1; if l=4 then if t mod 2=0 then s: =s+1 else a: =a+1; if l=5 then if y mod 2=0 then s: =s+1 else a: =a+1; if l=6 then if u mod 2=0 then s: =s+1 else a: =a+1; if l=7 then if i mod 2=0 then s: =s+1 else a: =a+1; if l=8 then if o mod 2=0 then s: =s+1 else a: =a+1; if l=9 then if p mod 2=0 then s: =s+1 else a: =a+1; end; writeln('чётных: ',s); writeln('нечётных: ',a); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
osadcha200410.02.2020 07:08
-
dosmailovadlet09.09.2021 00:50
-
masha323126.02.2020 01:24
-
alina2855115.09.2022 01:45
-
mrfreeman26p0aanr08.07.2021 02:11
-
gfyyfyftd13.04.2023 06:51
-
viktoria16813.05.2022 18:51
-
артемий5906.05.2020 04:38
-
спрос315.02.2022 20:51
-
самаучка00302.07.2022 11:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.