Az alábbi letöltési lehetőségek közül választhatsz: (
segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 387 byte
program saoijd;
uses crt;
const k=10;
n=11;
var t:array[1..n]of longint;
i,j:integer;
a:longint;
begin
clrscr;
t[n]:=1;
for i:=n-1 downto n-k+1 do
begin
t[i]:=2*t[i+1];
end;
for i:=n-k downto 1 do
begin
a:=0;
for j:=i+1 to i+k do a:=a+t[j];
t[i]:=a;
end;
writeln(t[1]);
readkey;
end.
