|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Michael Sedov 2:5015/185.2 23 Oct 2001 21:37:54
To : Michael Sedov
Subject : Re: Задачка!
--------------------------------------------------------------------------------
const
k = 10; {Система счичления}
n = 3; {Кол-во oeифер / 2}
_k = 2*(k-1);
var i, c, j, s : word;
a, b : array [-k..n*(k-1)] of word;
procedure generate(w : word);
begin
for i := 0 to k - 1 do a[i] := 1;
for j := 2 to w do
begin
s := 0;
for i := 0 to j*(k-1) do
begin
s := s + a[i] - a[i-k];
b[i] := s;
end;
a := b;
end;
end;
begin
generate(n);
for i := 0 to (n*(k-1) div 2) do
begin
c := c + sqr(a[i]);
end;
c := 2 * c;
if (n*(k-1) mod 2) = 0 then c := c - sqr(a[n*(k-1) div 2]);
writeln(c);
end.
Кто-может заотптимизитъ, то прошу! По крайней мере - можно массив можно
сократитъ на dва.
о при моём решении n - максималueное 127 и k - максималueное - 127.
--- WP/95 Rus 1.78 Релиз 1 Unreg.
* Origin: WinPoint 95 (2:5015/185.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
