дано 15 целых чисел. определить количество парных чисел - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.57/7:

@Toki 0 / 0 / 0 Регистрация: 26.11.2010 Сообщений: 3

	дано 15 целых чисел. определить количество парных чисел 26.11.2010, 10:44. Показов 1363. Ответов 1 Метки нет (Все метки) прошу Вас помочь решить задание: дано 15 целых чисел. определить количество парных чисел 0

Лучшие ответы (1)

Сообщение: #1143561

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

26.11.2010, 10:44

Ответы с готовыми решениями:

дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без остатка
дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без остатка

Дано 100 целых чисел от 1 до 50. Определить, сколько чисел, в десятичной записи которых -1,2,5.
Дано 100 целых чисел от 1 до 50. Определить, сколько чисел, в десятичной записи которых -1,2,5.

Строки. Дано 30 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2
Строки. Дано 30 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2

Dekio

Фрилансер

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,375

Записей в блоге: 1

26.11.2010, 11:03

Сообщение было отмечено Toki как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program try;
const 
n=15;
var
mas :array[1..n] of integer;
i,k :integer;
begin
k:=0;
writeln('Введите числа');
for i:=1 to n do
begin
readln(mas[i]);
if not odd(mas[i]) then
k:=k+1;
end;
writeln('Количество ',k);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

26.11.2010, 11:03

Помогаю со студенческими работами здесь

Дано множество из 15 целых чисел от 1 до 50. Определить, сколько среди них чисел, принадлежащих к множеству Фибоначчи.
Помогите пожалуйста.Вот задание:Дано множество из 15 целых чисел от 1 до 50. Определить, сколько среди них чисел, принадлежащих к множеству...

Строки. Дано 30 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2.
Дано 30 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2

Дано целое число K и набор целых чисел. Вывести количество чисел в наборе, меньших K
35. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K.

Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд
Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд. Если нечетные числа в...

Строки. Дано 100 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2
Строки. Дано 100 целых чисел от 1 до 50. Определить сколько среди них чисел,первая цифра которая 2

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

Наверх