Ребят Паскаль
Напишите программу, которая в последовательности целых чисел определяет разность количества четных и нечетных чисел. Программа получает на вход числа последовательности, условием остановки является ввод числа 0. Количество чисел заранее неизвестно, но не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число — разность количества четных и нечетных чисел.
sashaorlov2006
2
09.05.2020 16:49
2
Другие вопросы по теме Информатика
1234567890821
25.06.2019 07:00
saidislom01
03.12.2021 14:36
rustiuh
03.12.2021 14:38
Nekomimi11
03.12.2021 14:42
mfaig
06.08.2019 06:10
negatiff95
25.12.2019 13:31
Nikitaue
25.12.2019 13:33
ubbdfqhdu
25.12.2019 11:35
Maksprianikov
11.08.2019 01:50
Популярные вопросы
- Вычисли площадь прямоугольника участка со сторонами 60 м и 25...
3 - Колхоз должен был засеять поле за 4 дня. перевыполняя ежедневно...
1 - Впасиолке сначала пастроили 19домав а патом ешэ5домав третью част...
2 - Площадь квадрата 100 см найди стороны...
2 - Можно ли расположить на плоскости несколько треугольников так,...
2 - Нужно написать сочинение на тему для чего нужно изучать заранее...
3 - Определить, сколько предложений в тексте. написать, правильно...
3 - На левой чаше весов лежит дыня и гиря массой 2кг , а на правой...
2 - Всаду работали 8 девочек. это в два раза больше чем мальчиков.сколько...
3 - Композиционная схема текста может быть: а)линейной б)перпендикулярной...
2
PascalABC.NET 3.6.2
begin
var S := ReadSeqIntegerWhile(p -> p <> 0).ToList;
var odd := S.Where(p -> p mod 2 <> 0).Count;
var even := S.Where(p -> p mod 2 = 0).Count;
var diff := abs(even - odd);
diff.Println;
end.
// PascalABC.NET
begin
var diff := 0;
ReadSeqIntegerWhile(p -> p <> 0)
.Foreach(p -> begin diff += p.IsOdd ? -p : p end);
diff.Print
end.