program
mencari_nilai_mata_kuliah;
uses
wincrt;
var a:integer;
begin
readln (a);
if ((80<a) and (a<100)) then writeln
('a=A')
else if a>=76 then writeln ('a=AB')
else if a>=71 then writeln ('a=B')
else if a>=66 then writeln ('a=BC')
else if a>=61 then writeln ('a=C')
else if a>=41 then writeln ('a=D')
else writeln('a=E');
end.
Tidak ada komentar:
Posting Komentar