Viết chương trình nhập vào điểm thì của 1 học sinh và thông báo ra màn hình xem học sinh đó có phải học sinh giỏi ko?(từ 8.0-10 là “PHAI”, dưới 8.0 là “KHONG PHAI”)
Viết chương trình nhập vào điểm thì của 1 học sinh và thông báo ra màn hình xem học sinh đó có phải học sinh giỏi ko?(từ 8.0-10 là “PHAI”, dưới 8.0 là “KHONG PHAI”)
program phuongt;
uses crt;
var tb: real;
begin
clrscr;
write(‘Nhap diem cua 1 hoc sinh: ‘); readln(tb);
if (tb<10) and (tb>8) then write(‘PHAI’);
if (tb<8) then write(‘KHONG PHAI’);
readln
end.
Uses crt;
Var toan,van,anh,dtb:integer;
Begin
Clrscr;
repeat
Write(‘Nhap diem toan=’);Readln(toan);
Write(‘Nhap diem van=’);Readln(van);
Write(‘Nhap diem anh=’);Readln(anh);
dtb:=(toan+van+anh)/3;
Writeln(‘dtb ba mon la:dtb:4:2);
if dtb>8 then writeln(‘GIOI’);
else if dtb<8 then writeln(‘KHONG PHAI’);
Readln;
End.