?? ac1017.pas
字號:
program ural1017;
const
maxn=500;
var
q:array[0..maxn]of int64;
n,i,j:integer;
begin
fillchar(q,sizeof(q),0);
readln(n);
q[0]:=1;
for i:=1 to n do
for j:=n downto i do
inc(q[j],q[j-i]);
writeln(q[n]-1);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -