Войти Регистрация Спроси ai-bota

Введите ряд чисел,но как только пользователь вводит -1 программа должна сосчитать кол-во четных и нечетных сделайте программу в паскале

Ответ:

pinGvin022

07.10.2020 08:22

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadSeqIntegerWhile(t->t<>-1).ToArray;
var k:=a.Where(x->x.IsEven).Count;
Writeln('Четных чисел ',k,', нечетных ',a.Length-k)
end.

Пример
5 12 -3 7 0 12 43 -24 17 -1
Четных чисел 4, нечетных 5

0,0(0 оценок)

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

arzanix

02.03.2022 23:37

Написать программу,позволяющую для заданного одномерного массива а из n вещественных или целых элементов реализовать обработку массива.длина массива n задается пользователем как...

ksushaybff

08.01.2022 15:38

Втаблице «оплата электроэнергии» используйте следующее правило для подсчета суммы оплаты: если израсходовано не более 100 квт · ч, то цена 1 квт · ч равна 50 коп.; если израсходовано...

bonipasol1

28.04.2023 18:09

Какие виды информации получать животные , растения?...

кириешка5

20.04.2022 21:01

Определите полный набор данных для решения следующих обработки информации 1)вычесление площади прямоугольника 2)приготовление обеда 3)вычесление стоимости покупок в магазине 4)приготовлени...

Lodenihgyshuvg736627

20.04.2022 21:01

Определите полный набор исходных данных для решения следующих 1 вычисление площади прямоугольника 2приготовление обеда 3 вычисление стоимости покупок в магазине 4 приготовление салата...

tsts84

30.01.2021 21:14

Составьте программы для решения 1. найти площадь треугольника по двум сторонам и углу между ними. величину угла вводить в градусах. ответ дать с точностью до трёх знаков после запятой...

alekseyovsyann

02.04.2021 14:03

Які тканини забезпечують рухи тварин? яка їхня будова?...

лупапупа

02.04.2021 14:03

###❖❖❖альфа-аминомасляная кислота и 2-аминопропановая кислота изомеры или гомологи? (и почему) определите вид изомерии.❖❖❖###...

LaMoZzStaDt

02.04.2021 14:03

Скласти речення из словами: цибуля, чемпіон....

Ariya03

02.04.2021 14:03

Зробити синтаксичний розбір речення. унікальна в історії україни співпраця діячів культури, науки, літератури з підприємцями, започаткована фірмою „брати яхненки й симиренко“, дала...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку