Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/30: Рейтинг темы: голосов - 30, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57

Сколько потребуется парт, чтобы рассадить А учеников, если за одной партой может сидеть один или два ученика?

09.07.2014, 11:09. Показов 6135. Ответов 16
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сколько потребуется парт, чтобы рассадить А учеников если за одной партой может сидеть один или два ученика. Пустующих парт быть не должно. Вывести все возможные варианты ответа в порядке возрастания.
Входные данные:
Во входном потоке в первой строке дано единственное число A (1 <= A <= 10000).

Выходные данные:
Вывести целые числа в строку через пробел.

Пример входного файла (input.txt):
6
Пример выходного файла (output.txt):
3 4 5 6
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.07.2014, 11:09
Ответы с готовыми решениями:

Сколькими способами можно их рассадить за 10 партами, так чтобы за одной партой не сидели 2 девочки
В классе 12 мальчиков и 8 девочек. Сколькими способами можно их рассадить за 10 партами, так чтобы за одной партой не сидели 2 девочки?

Определить сколько понадобится парт, чтобы рассадить A школьников
Доброго времени суток всем, помогите с решением пожалуйста,с пояснением:wall: Сколько понадобится парт, чтобы рассадить A...

Сколько всего нужно закупить парт чтобы их хватило на всех учеников?
В школе решили набрать три новых математических класса. Так как занятия по математике у них проходят в одно и то же время, было решено...

16
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
09.07.2014, 13:38
ой.. боюсь фигню сморозить, но что-то мне кажется, что решение задачи банально, как парта:
Pascal
1
2
3
4
5
6
7
var A, k, i : integer;
begin
  ReadLn(A);
  k := A div 2;
  if odd(A) then Inc(k);
  for i:= k to A do Write(i,' ');
end.
1
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 16:05
Цитата Сообщение от Sergio Leone Посмотреть сообщение
ой.. боюсь фигню сморозить, но что-то мне кажется, что решение задачи банально, как парта:
Pascal
1
2
3
4
5
6
7
var A, k, i : integer;
begin
  ReadLn(A);
  k := A div 2;
  if odd(A) then Inc(k);
  for i:= k to A do Write(i,' ');
end.
Последний тест не прошел. Показует код ошибки 101.
Сообщения компилятора:
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling Main.pas
Linking Main
7 lines compiled, 0.0 sec
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
04.05.2015, 16:11
И что?
Какие у тебя мысли по этому поводу?
Что означает код ошибки 101?
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 16:24
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
И что?
Какие у тебя мысли по этому поводу?
Что означает код ошибки 101?
Я по этому и обращаюсь за помощью. Думаю что ошибка или в 5 или в 6 строке. А где на самом деле не знаю.
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
04.05.2015, 16:55
Начни с чтения user.pdf из документации к FreePascal - там в приложении D коды ошибок исполнения.
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 16:58
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
И что?
Какие у тебя мысли по этому поводу?
Что означает код ошибки 101?
Сам то как думаешь где?
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
04.05.2015, 17:18
Когда я решаю задачки на online judje и происходит непонятный останов на каком-то далеко не первом тесте - читаю форум на этом же ресурсе. Там иногда приводят комментарии подводящие к решению.

101 Disk write error Reported when the disk is full, and you’re trying to write to it.
Но ты утверждаешь, что это последний тест - значит ранние тесты читали и записывали корректно.

Приведи полностью задание или дай ссылку. Приведи код, который отправляешь на проверку.
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 17:25
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
Когда я решаю задачки на online judje и происходит непонятный останов на каком-то далеко не первом тесте - читаю форум на этом же ресурсе. Там иногда приводят комментарии подводящие к решению.


Но ты утверждаешь, что это последний тест - значит ранние тесты читали и записывали корректно.

Приведи полностью задание или дай ссылку. Приведи код, который отправляешь на проверку.
Pascal
1
2
3
4
5
6
7
var A, k, i : integer;
begin
  ReadLn(A);
  k := A div 2;
  if odd(A) then Inc(k);
  for i:= k to A do Write(i,' ');
end.
Вот код который ввожу. Задание в начале главы такое как и у меня. Все равно не могу найти ошибку. Читал что еще может быть что поля не на своем месте, менял и ничего не поменялось.((((
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
04.05.2015, 17:43
М.б. лишний пробел в конце.
А что по поводу файлов? Я не уяснил для себя, как вводится и как выводится информация - через файл или через консоль.

Добавлено через 12 минут
Шось ты умолк. Раз 101 - ошибка записи в файл, то логично понять, как должен производиться ввод и вывод в той конкретной judje.
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 19:04
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
М.б. лишний пробел в конце.
А что по поводу файлов? Я не уяснил для себя, как вводится и как выводится информация - через файл или через консоль.

Добавлено через 12 минут
Шось ты умолк. Раз 101 - ошибка записи в файл, то логично понять, как должен производиться ввод и вывод в той конкретной judje.
Этот код для одного сайта работает по другому по этому я хз где там ошибка.
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
04.05.2015, 19:23
judje - это не ругательство, а система электронного жури (оценки корректности) программ.
Каждый сайт online judje имеет свой способ ввода/вывода.
Пример для timus
Пример решения задачи

Вот пример решения задачи A + B на Паскале:
var
a, b: integer;
begin
readln(a, b);
writeln(a + b);
end.
Тот же пример для другого online judje
var a,b : integer;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a,b);
write(a+b)
end.
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
04.05.2015, 20:01
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
judje - это не ругательство, а система электронного жури (оценки корректности) программ.
Каждый сайт online judje имеет свой способ ввода/вывода.
Пример для timus

Тот же пример для другого online judje
Это я знаю, но все равно не помогает.
0
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
04.05.2015, 21:35
Цитата Сообщение от Николайчик Посмотреть сообщение
Последний тест не прошел. Показует код ошибки 101.
дай ссылку на ресурс, где пытаешься сдать задачу...

Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
читаю форум на этом же ресурсе.
вот-вот. Это в точку!
0
0 / 0 / 1
Регистрация: 23.11.2014
Сообщений: 136
06.05.2015, 19:18
Цитата Сообщение от Sergio Leone Посмотреть сообщение
дай ссылку на ресурс, где пытаешься сдать задачу...


вот-вот. Это в точку!
Без розрешения админа допуск к задачам не возможен. Имеет смысл давать ссылку?
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8657 / 4493 / 1669
Регистрация: 01.02.2015
Сообщений: 13,902
Записей в блоге: 12
06.05.2015, 20:08
Нет, так - нет.

Давай тогда гадать, что не так. Перебирать возможные варианты, как организуется ввод/вывод в других сайтах.

Почему я думаю, что это ввод/вывод.
Ты привёл код ошибки 101 (правда, источник не привёл и её значение мы тако же не знаем). Если это не код системы проверки, который может означать что угодно (например, ошибку времени), то может быть это код rte.
Хотя - не факт.
Цитата Сообщение от Николайчик Посмотреть сообщение
Последний тест не прошел. Показует код ошибки 101.
Ошибки чего и где?
Единственно, я могу посмотреть коды rte fpc, где 101 код ошибки записи в файл.

Т.к. других сведений у меня нет, я принимаю рабочую версию rte. Некорректность алгоритма отметаю - он верный. Что может привести к ошибке записи файла:
1. Отсутствие самой записи (в программе нет команд работы с файлами).
2. Некорректный вывод строки (которая средствами системы проверки преобразуется в файл). Может быть в конце программы требуется перевод строки (writeln; - перед end). Кстати - попробуй.

Может быть что-то ещё. Я не сдавал в этой системе ни одной задачи, и ничего не знаю по оформлению ввода/вывода.

Попробуй обратиться к преподавателю с вопросом - может он поможет.
На тимусе и других подобных ресурсах, у каждой задачи есть ветка обсуждения - подобие форума. Я даже не знаю - есть у тебя такое или нет.

Давай, теперь ты генерируй предсказания.
1
06.05.2015, 20:20

Не по теме:

ФедосеевПавел, ГПКС!

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.05.2015, 20:20
Помогаю со студенческими работами здесь

Сколько может быть различных вариантов формирования пар детей, сидящих за одной партой?
В классе X детей (2 ≤ X ≤ 30). Сколько может быть различных вариантов формирования пар детей, сидящих за одной партой? Написать программу,...

Посчитайте, какое минимальное количество столов потребуется, чтобы рассадить всю компанию
а свой день рождения Вася решил пригласить всех своих друзей. Приняли приглашение и подтвердили участие в вечеринке по случаю дня рождения...

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

Вычислить средний бал учеников класса, если известны оценки каждого ученика
Вычислить средний бал учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать список...

Вычистить средний балл учеников класса, если известны оценки каждого ученика по
Здравствуйте форумчане, нуждаюсь в вашей помощи. Нужно написать программу с выводом в блокнот. Вычислить средний балл учеников...


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

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru