Question

pascal键盘输入一个数,判断该数的等级

A：（85~100) B:(75~85)
C: (60~75) D;(0~60)

Answer 1

var
a:longint;
begin
readln(a);
case a of:
0..59:write('D');
60..74:write('C');
75..84:write('B');
85..100:write('A');
end;
end.
其实就那么简单，思考吧，祝你学习愉快！

Answer 2

var score:real;
begin
    readln(score);
    if (score>=85)and(score<=100)
        writeln('A')
    else if (score>=75)and(score<85)
        writeln('B')
    else if (score>=60)and(score<75)
        writeln('C')
    else if (score>=0)and(score<60)
        writeln('D');
end.

因为没说分数是整数，而且现实生活中有60.5分这样的例子。所以使用了real.