pascal初学者提问

[j9]最经济型包装箱型号

Time Limit:1000MS Memory Limit:65536K
Total Submit:32 Accepted:23

Description

已知有A，B，C，D，E五种包装箱，为了不浪费材料，小于10公斤的用A型，大于等于10公斤小于20公斤的用B型，大于等于20公斤小于40公斤的用C型，大于等于40公斤的小于50公斤的用D型，大于等于50公斤小于80公斤的用E型。现在输入一货物的重量（小于80公斤），找出最经济型的包装箱型号。

Input

输入只有一行，包括一个整数。

Output

输出只有一行（这意味着末尾有一个回车符号），包括1个字符。

Sample Input

8

Sample Output

A

Source
请教各位谁能教教我，好的给分

program j9;
var a:integer;
begin
readln(a); {读入重量}
if a<10 then writeln('A') {小于10公斤}
else if a<20 then writeln('B') {不小于10公斤但小于20公斤}
else if a<40 then writeln('C') {不小于20公斤但小于40公斤}
else if a<50 then writeln('D') {不小于40公斤但小于50公斤}
else writeln('E'); {不小于50公斤}
end.

推荐书目： 书名：pascal程序设计（第二版）编者：郑启华出版社：清华大学出版社价格：19.50元ps：这本书是pascal语法基础，还有一些简单题目的调试，适合初学者使用。 书名：全国青少年信息学奥林匹克竞赛培训教材 复赛（附光盘）编者：陈合力、游光辉出版社：浙江大学出版社价格：39.00元（含光盘）ps：别看是青少年竞赛，这本书里边都是pascal语言的经典算法，有图论、动态规划、贪心、分治等等，而且是一线竞赛辅导教师编写，简单易懂。 上面两本书在新华书店都有卖，希望楼主能够早日成为oi爱好者，欢迎采纳！  xh.aidaogou.netpascal初学者的求助