Есть ответ 👍

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

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

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


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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS