freepascal吧 关注:250贴子:915
  • 1回复贴,共1

求哪里错了

只看楼主收藏回复

var
x:integer;
begin
read(x);
case x of
(x<10):writeln('A');
(x>=10)and(x<40):writeln('B');
(x>=40)and(x<50):writeln('C');
else writeln('D')
end
end.


1楼2016-11-10 20:46回复
    是oj.jzxx.net里的1018题


    2楼2016-11-10 20:47
    回复