Нужна срочно программка на PascalABC, помогите кто может пожалуйста.Билет считается
Нужна безотлагательно программа на PascalABC, помогите кто может пожалуйста.
Билет считается счастливым, если в его n-значном номере сумма первых [n/2] цифр одинакова сумме [n/2] заключительных цифр (при нечетном n центральная цифра в проверке на счастье не участвует и может быть хоть какой). Подсчитайте число счастливых билетов с различными n-значными номерами (водящие нули в номерах вероятны, но номера, состоящего из одних нулей, не существует).
Входные данные
На вход программке подается натуральное число n lt; 16.
Выходные данные
Выведите количество n-значных счастливых билетов.
1 ответ
Михаил Спичкин
Var
a: array [0..8,0..80] of int64;
i,j,k,n,m: integer;
s: int64;
begin
read(n);
m := n div 2 * 10;
for i := 0 to n div 2 do
for j := 0 to m do
a[i,j] := 0;
a[0,0] := 1;
for i := 1 to n div 2 do
for j := 0 to m do
for k := 0 to 9 do
if j - k gt;= 0 then
a[i,j] := a[i,j] + a[i-1,j-k];
k := n div 2;
s := 0;
for i := 0 to m do
s := s + sqr(a[k,i]);
if n mod 2 lt;gt; 0 then
s := s * 10;
s := s - 1;
write(s);
end.
a: array [0..8,0..80] of int64;
i,j,k,n,m: integer;
s: int64;
begin
read(n);
m := n div 2 * 10;
for i := 0 to n div 2 do
for j := 0 to m do
a[i,j] := 0;
a[0,0] := 1;
for i := 1 to n div 2 do
for j := 0 to m do
for k := 0 to 9 do
if j - k gt;= 0 then
a[i,j] := a[i,j] + a[i-1,j-k];
k := n div 2;
s := 0;
for i := 0 to m do
s := s + sqr(a[k,i]);
if n mod 2 lt;gt; 0 then
s := s * 10;
s := s - 1;
write(s);
end.
Виталя
Спасибо большое!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов