Pascal. Комбинаторика.

[Abstraction]

Что? Сколько половинок с тремя точками на обычных домино?

[Саша........]

8 половинок

[Poma][a]

var
        n, i, j : Integer;
        count : Int64;
 
begin
        reset (input, 'input.txt');
        rewrite (output, 'output.txt');
        ReadLn (n);

        for i := 0 to n do begin
                for j := i to n do
                        count := count + j + i;
        end;

        WriteLn (count)
end.

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

[Саша........]

наверное это из за цикла for..спасибо конечно)))но мне эту задачу нужно очень хорошо суметь объяснить))

[Poma][a]

наверное это из за цикла for

эт понятно, но вроде не должен...

но мне эту задачу нужно очень хорошо суметь объяснить))

поехали
рассмотрим что нам нужно сделать :
1) составить доминошки
2) сложить каменюки на них

всего каменюк на 1 части доминошки будет = от 0 до n
вот и первый цикл вырисовался

идем по камням на доминошке, а т.к. доминошка состоит из 2 частей, где опять же произвольное число каменюк, то нужен 2 цикл...

Теперь стоит поговорить от скольки и доскольки должен идти 2 цикл
:

2
0__1__ 2
00_01_02
___11_12
______22

Вот и получили..

[Mad_Cat]

var
        n, i : Integer;
        count : int64;
 
begin
        reset (input, 'input.txt');
        rewrite (output, 'output.txt');
        ReadLn (n);
        for i:=1 to n do
        count:=count+(n+2)*i;
        writeln(count);
end.

[Саша........]

что?что такое каменюки?я ничего не понимаю(

[Poma][a]

Mad_Cat, здравствуйте, а можно пояснения?

Саша, привычка с давних времен, называть камни - каменюками...

[Саша........]

вот когда было сколько раз повторяется 5 точек и 3 точке,вот мне тогда было понятно))))

[BDA]

Mad_Cat, а последний тест не пройдет
Саша........, посчитайте сколько раз встречаются:
1, 2, 3, 4, 5, 6 точек
Если не заметите некоторой закономерности, то попробуйте для домино с 3 точками максимум (предварительно выпишите все возможные случаи).