Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  grade
Language: PASCAL
Code:
var
     a,b,c,d: Integer;
     ch:Char;
     e:Real;
begin
     readln(d);
     case d div 10 of
          9,10: ch:='A';
          8:ch:='A';
          7:ch:='B';
          6:ch:='C';
          else 
               writeln('input error');
     end;

end.
Comments: