pascal问题求解入门购买文具时间限制：1000MS内存限制：1000K解答次数：283通过次数：227试题描述新学年就要开始了，爸爸把N元钱给了小青，让他购买一批文具，并作了以下

Question

pascal问题求解
【入门】购买文具时间限制：1000MS 内存限制：1000K
解答次数：283 通过次数：227 【试题描述】 　　新学年就要开始了，爸爸把N元钱给了小青，让他购买一批文具，并作了以下要求：只能买圆珠笔、铅笔和铅笔芯，并且每样至少买一支，总数要超过30支，而且钱要全部花完。
　　当小青去到文具店时，发现圆珠笔8角钱一支、铅笔2角钱一支、铅笔芯1角钱一支。小青怎么买才能符合爸爸的要求呢？请你编个程序帮他算出符合购买要求的所有方案总数。【输入描述】 一个整数N，表示购买文具一共的元数。（1 <= N <= 50）【输出描述】 一个整数，即符合购买要求的所有方案总数。【输入样例】 8 【输出样例】 135 【试题来源】

Answer 1

挺简单的一道题：var
i,j,t,s,n:longint;
begin
readln(n);
n:=n*10-2-8-1;
for i:=0 to n div 8 do
for j:=0 to n div 2 do
begin
t:=n-i*8-j*2;
if (t>=0)and(t+i+j>27) then inc(s);
end;
writeln(s);
end.