Показать сообщение отдельно
Старый 21.03.2013, 10:11   #1 (permalink)
Tusy
Новичок
 
Регистрация: 21.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Решите пожалуйста задачи по Delphi

Кот Матроскин и Шарик загадывали четные и нечетные числа в произвольном порядке, пока не кончилось место на печке, где они записывали эти числа. Определить, каких чисел было загадано больше: четных или нечетных, если последним было записано число 0 (0 при подсчете не учитывать!). Сколько четных чисел предшествовало первому нечетному? Вводятся целые числа(типа Integer), последним вводится 0. Всего вводится не более 1000 чисел.
Вывести: в первой строке количество чисел, которых было записано больше.
во второй строке вывести количество четных чисел, предшествующих первому нечетному. Если нечетных чисел не встретилось, вывести 0.

ПРИМЕР ВВОДА:
2 1 3 4 5 6 7 8 9 0

ПРИМЕР ВЫВОДА:
5
1

ПРИМЕР ВВОДА:
2 4 6 8 10 0

ПРИМЕР ВЫВОДА:
5
0

Замечание:
Не следует цепляться к чужим темам. Создал новую.

Модератор
Tusy вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070