Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.58/19: Рейтинг темы: голосов - 19, средняя оценка - 4.58
dronoff

Подсчитать число лесенок, которое можно построить из N кубиков

24.12.2008, 19:08. Показов 3842. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите решить плз

Задача "Лесенки"

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

---
| |
---------
| | | | |
-----------
| | | | | |
-----------------
| | | | | | | | |
-----------------

Подсчитать число лесенок, которое можно построить из N кубиков.

Входные данные
Во входном файле записано число N (1<=N<=100).

Выходные данные
В выходной файл вывести искомое число лесенок.

Пример
Пример входного файла
3

Пример выходного файла
2
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.12.2008, 19:08
Ответы с готовыми решениями:

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

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

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

2
 Аватар для =light=
3 / 3 / 3
Регистрация: 24.12.2008
Сообщений: 15
27.12.2008, 19:17
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 
var
  n,on,nn,l:integer;
 
begin
  clrscr;
  write('Input N: ');readln(n);
  nn:=n; on:=0;
 
  while n>on do begin
    inc(on);
    n:=n-on;
    inc(l);
  end;
 
  write(nn,' cubes =  ',l,' lesenok');
  readkey;
end.
0
 Аватар для DalakWeed
0 / 0 / 0
Регистрация: 03.10.2014
Сообщений: 4
03.10.2014, 10:18
Вот как будет выглядеть данная задача
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{$APPTYPE CONSOLE}
 
uses
SysUtils;
function Count(n,m:byte):longint;
var f:longint;
begin
f:=byte(n=0);
while m<n do
begin
inc(m);
inc(f,Count(n-m,m));
end;
Count:=f;
end;
 
var n:byte;
begin
Assign(input,'input.txt');
reset(input);
readln(n);
writeln(Count(n,0));
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.10.2014, 10:18
Помогаю со студенческими работами здесь

Подсчитать число лесенок, которое можно построить из N кубиков
Лимит времени 2000/4000/4000/4000 мс. Лимит памяти 65000/65000/65000/65000 Кб. Лесенкой называется набор кубиков в один или несколько...

Вычислить число лесенок, которое можно построить из N кубиков
Объясните пожалуйста решение 16 задачи acmp . ru: Я нашёл только программу, а решение не понял. #include &lt;iostream&gt; ...

Рекурсия: вычислить количество лесенок, которое можно построить из N кубиков
Здраствуйте! У меня есть одна классическая задачка про Лесенку. Лесенка Лесенкой называется набор кубиков, в котором каждый более...

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

Сколько можно построить лестниц из кубиков?
http://acm.timus.ru/problem.aspx?space=1&amp;num=1017 Вот такой вот код, рабочий, но все же гавнокод Вместо динамического программирования...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru