Question

[Nguyễn Thị Thu Hiền]

Viết chương trình nhập điểm môn toán( Đ.Toán) và điểm môn văn ( Đ.Văn) cho học sinh từ bàn phím.Thực hiện:

-Tính điểm trung bình(ĐTB) cho học sing theo công thức:

ĐTB=( Đ.Toan+Đ.Van)/2

-Xếp ***** học sing theo tiêu chí sau đây:

+Nếu ĐTB <5.0 xếp loại yếu

+Nếu 5.0 < hoặc = ĐTB < hoặc =6.5 xếp loại trung bình

+Nếu 6.5 < hoặc=ĐTB < hoặc = 8.0 xếp loại khá

+Nếu ĐTB > hoặc = 8,0 thì xếp loại giỏi

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
var t,v,dtb:real;
begin
clrscr;
write('nhap diem toan:'); readln(t);
write('nhap diem van:'); readln(v);
dtb:=(t+v)/2;
writeln('diem trung binh la: ',dtb:4:2);
if dtb<5 then writeln('xep loai yeu')
else if (dtb>=5) and (dtb<6.5) then writeln('xep loai trung binh')
else if (dtb>=6.5) and (dtb<8) then writeln('xep loai kha')
else writeln('xep loai gioi');
readln;
end.

Answer 2

[Thạch Ngọc Trúc Ly]

Program bt;

Var t,v,dtb:real;

Begin

Writeln('nhap t:=');

Readln(t);

Writeln('nhap v:=');

Readln(v);

dtb:=(t+v)/2;

Writeln('diem trung binh là:=',dtb);

if dtb<5.0 then writeln('xep loai yeu');

if 5.0<=dtb<=6.5 then writeln('xep loai trung binh');

if 6.5<=dtb<=8.0 then writeln('xep loai kha');

if dtb>=8.0 then writeln('xep loai gioi');

Readln;

End.