Question

viết chương trình nhập vào điểm thi hk1 môn tin . suất ra màn hình xếp loại môn thi đó

Answer 1

uses crt;

var diem:real;

begin

clrscr;

write('nhap so diem mon tin:'); readln(diem);

if diem<5 then writeln('yeu');

if (diem>=5) and (diem<6.5) then writeln('trung binh');

if (diem>=6.5) and (diem<8) then writeln('kha');

if diem>=8 then writeln('gioi');

readln;

end.

Answer 2

program mon_tin;

uses crt;

var t: integer;

begin

clrscr;

writeln(' nhap diem mon tin:'); readln(t);

if t>=8 then writeln(' loai gioi:');

if (6,5<=t) and (t<8) then writeln(' loai kha:');

if (5<=t) and (t<6,5) then writeln(' loai trung binh:');

if t<5 then writeln(' loai kem:');

readln;

end.