Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2013, 12:55   #1
anton.dasuik
Пользователь
 
Регистрация: 25.01.2013
Сообщений: 16
Смущение написать программу

Задача «Лжецы и правдолюбы». Трактир "У скоробреха" очень популярен среди искателей приключений, наемников, отчаянных и негодяев. Искатели приключений всегда ходят большими кампаниями, поскольку убить дракона или гигантского монстра одиночку практически невозможно. Рассказывая о своих подвигах одни герои (лжецы) всегда их украшают, а другие (правдолюбы) говорят только правду. Нельзя верить ни одному слову сказанному лжецом, даже если это слово - число. Он может рассказать, как одним выстрелом из арбалета убил семь драконов, хотя всем известно, что драконы не летают стаями, и у них только одно уязвимое место на брюхе, в которое очень трудно попасть. Во время путешествий герои часто рассказывают друг другу истории и поэтому знают, сколько в их кампании лжецов и правдолюбцев. Хозяин Шельменко решил узнать, сколько лжецов в компании, зашла в его трактир, поскольку компания, в которой все лжецы, может убежать, не заплатив, или расплатиться фальшивой монетой. Для этого он спрашивает у каждого из компании сколько среди них лжецов. Но опросив всех героев, Шельменко не смог определить количество лжецов в компании. Напишите программу, которая поможет Шельменко определить, сколько лжецов в кампании зашла в кабак.

Формат ввода

Первая строка текстового файла «shelma.dat» содержит одно целое число N () - количество лиц в компании. Во второй строке содержится N целых чисел в диапазоне от 0 до N - ответы искателей приключений на вопрос Шельменко о количестве лжецов в их компании.

Формат вывода

В первой строке текстового файла «shelma.sol» вывести одно число K - число вариантов количества лжецов. Во второй строке вывести K чисел - варианты количества лжецов в порядке возрастания. Если K равен 0, то вторую строку не выводится.

Например:


2.......................1
1 1................... 2

2.....................2
1 0.................0 2

2......................0
0 2
anton.dasuik вне форума Ответить с цитированием
Старый 20.02.2013, 13:11   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Цитата:
Напишите программу, которая поможет Шельменко определить, сколько лжецов в кампании зашла в кабак.
5000 руб. и не монетой меньше.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры ANTON1994 Паскаль, Turbo Pascal, PascalABC.NET 3 09.02.2013 13:53
Написать программу Энди84 Фриланс 5 08.11.2011 23:14
Написать программу на С++ lady.ulumba Помощь студентам 13 24.09.2011 17:24
Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедурую(написать Delphi) BLADIMIR Помощь студентам 3 07.09.2011 16:35
Написать программу sasha15 Фриланс 2 23.04.2010 20:16