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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2012, 20:35   #1
скромница2012
Новичок
Джуниор
 
Регистрация: 16.04.2012
Сообщений: 3
По умолчанию Комбинаторика

Для того, чтобы заработать огромный капитал, новым русским необходимо иметь неординарное мышление. Конечно, при такой сложной работе, должны так же присутствовать какие то особенные механизмы для отдыха и развлечений. В этих целях в казино был придуман специальный набор домино для новых русских. Обычные кости домино представляют собой набор из различных комбинаций сочетаний двух плиток, на каждой из которых отображается от 0 до 6 точек. А этот набор представляет собой подобные сочетания плиток, но количество точек на каждой может быть от нуля до заданного значения, которое зависит от интеллектуального уровня игроков. В таком наборе костей присутствуют всевозможные сочетания плиток, но при этом ни одна из костей не повторяется (даже такие комбинации как 2-5 и 5-2 считаются одинаковыми).

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

Помогите написать программу, которая решит эту задачу.
Входные данные

Входной файл INPUT.TXT содержит одно натуральное число N – максимальное количество точек на одной плитке домино. (N <= 10000)
Выходные данные

В выходной файл OUTPUT.TXT выведите количество бриллиантовых камней, которые необходимо изготовить для заданного набора костей.
скромница2012 вне форума Ответить с цитированием
Старый 16.04.2012, 21:08   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

А ты сама что-то сделала? Покажи наработки, хотя бы что-то...
Poma][a вне форума Ответить с цитированием
Старый 16.04.2012, 21:30   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,289
По умолчанию

Файловый ввод-вывод добавите сами.
Код:
uses crt;
var
n,i,j,s:longint;
begin
readln(n);
s:=0;
for i:=0 to n do
for j:=i to n do
        s:=s+i+j;
writeln(s);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Комбинаторика Nikita++ Помощь студентам 2 15.12.2011 19:33
Комбинаторика Dima170792 Помощь студентам 8 20.04.2011 00:01
Комбинаторика music66 Помощь студентам 13 18.04.2011 18:01
Комбинаторика kiborrgg Помощь студентам 6 25.03.2011 15:50
Комбинаторика MadReason Помощь студентам 4 09.12.2010 22:52