|
نمره بندي
program exsam;
uses
wincrt;
var
num:real;
begin
writeln('Plaes Enter Your Number from 0 To 100');
readln(num);
if num>=80.0 then
writeln('Grad is A')
else if num>=60.0 then
writeln('Grad is B')
else if num>=50.0 then
writeln('Grad is C')
else if num>=30.0 then
writeln('Grad is E')
else if num>=10.0 then
writeln('Grad is f')
else
writeln('Error');
readln;
end.
نویسنده:کیوان
شجاعی
Email:kayvan.shojaie@gmail.com |