|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.03.2012, 19:40 | #1 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 24
|
Подарки. 4/5 тестов
Задача не проходит 1 тест. Я пробывал тестировать несколько вариантов. Все работало. Сам не нашел суть ошибки. Подскажите, что подрихтовать в коде, чтоб все сработало.
В каждый подарочный набор входит 1 ручка, 2 линейки и 4 тетради. На складе имеется a ручек, b линеек и c тетрадей. Сколько всего подарочных наборов можно собрать? Входные данные: Во входном потоке в первой строке задано три целых числа: a, b и c. (0 < a, b, c < 30000) Выходные данные: Вывести единственное целое число - количество подарочных наборов Пример входного файла (input.txt): 1 2 4 Пример выходного файла (output.txt): 1 var a,b,c,k,d,e,f:integer; begin read(a,b,c); k:=0; d:=b div 2; e:=c div 4; if (d<a)and(d<e) then f:=d else begin if (e<d)and(e<a) then f:=e; end; if ((d>a) and (e>a))or ((d=a)and(e=a)) then f:=a; k:=k+f; writeln(k); end. |
08.03.2012, 20:03 | #2 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
Код:
пишу код не только за печеньки
|
08.03.2012, 20:19 | #3 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 24
|
Спасибо. Все получилось.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Реализация тестов | aleksei111 | Общие вопросы Delphi | 2 | 20.05.2008 12:15 |