viết chương trình nhập điểm các bạn hs trong lớp là số thực, in ra màn hình số bạn đạt kết quả G, K, TB, Y theo yêu cầu sau:
G: từ 8.0 trở lên
K: từ 6.5 đến 7.9
TB: từ 5.9 đến 6.4
Y: dưới 5.0
giúp mik vs ạ, cảm ơn!
viết chương trình nhập điểm các bạn hs trong lớp là số thực, in ra màn hình số bạn đạt kết quả G, K, TB, Y theo yêu cầu sau:
G: từ 8.0 trở lên
K: từ 6.5 đến 7.9
TB: từ 5.9 đến 6.4
Y: dưới 5.0
giúp mik vs ạ, cảm ơn!
Program BTH;
uses crt;
var a:real;
Begin
clrscr;
Write(‘Nhap so diem: ‘);readln(a);
If a<5 then write(‘Y’) else
If (a>5) and (a<6.4) then write(‘TB’) else
If (a>6.5) and (a<8) then write(‘K’) else
write(‘G’);
readln;
end.
program oken;
uses crt;
var n:real;
begin
clrscr;
write(‘nhap diem: ‘); readln(n);
if n<=5 then writeln(‘yeu’) else
if (n>=5,9) and (n<=6,4) then writeln(‘trung binh’) else
if (n>6,4) and (n<8) then writeln(‘kha’) else
writeln(‘gioi’);
readln;
end.