Составьте программу, которая последовательно запросит 10 целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных чисел.

270

290

Посмотреть ответы 3

Ответы на вопрос:

olgamorozkina19

Информатика

4,5(67 оценок)

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

фелекс54

Информатика

4,4(87 оценок)

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.

znanijacom77

Информатика

4,8(28 оценок)

Мешки букв ? может книжки ?

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.