- Jun 18, 2020
- 1
- 0
- 10
- 0
Program Bulletin ;
Uses Wincrt ;
Var moy : integer ;
Begin
Write ('marks : ') ; Readln (moy) ;
if 18 <moy then writeln ('Excellent')
else if 16 < moy < 18 then writeln ('very good');
else if 14 < moy < 16 then writeln ('good');
else if 12 < moy < 14 then writeln ('above average')
else if 0 < moy < 12 then writeln ('Passable')
else writeln (' F')
end.
Incompatible types: got boolean expeted longint
Uses Wincrt ;
Var moy : integer ;
Begin
Write ('marks : ') ; Readln (moy) ;
if 18 <moy then writeln ('Excellent')
else if 16 < moy < 18 then writeln ('very good');
else if 14 < moy < 16 then writeln ('good');
else if 12 < moy < 14 then writeln ('above average')
else if 0 < moy < 12 then writeln ('Passable')
else writeln (' F')
end.
Incompatible types: got boolean expeted longint
Facebook
Twitter