[algogeeks] Re: MIPT Problem

[Ksitami]

var
    ta:array[-9..1000] of integer;
    i, n:integer;
begin
    readln(n);

    for i:= -9 to -1 do
          ta[i]:=0;
    ta[0]:= 1;
    for i:= 1 to n do
          ta[i]:= 1+ta[i-2]+ta[i-3]+ta[i-4] -
(ta[i-5]+ta[i-6]+ta[i-7]) + ta[i-9];
    writeln(n:6, ta[i]:12);
end.


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Algorithm Geeks" group.
To post to this group, send email to algogeeks@googlegroups.com
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at http://groups.google.com/group/algogeeks
-~----------~----~----~----~------~----~------~--~---