Viết chương trình nhập vào họ và tên, điểm toán, điểm văn, tính điểm trung bình. In ra màn hình họ tên, điểm toán, điểm văn và điểm trung bình.
2 câu trả lời
program diem_TB;
uses crt;
var ht:string;
t,v,TB:real;
Begin
clrscr;
write('Nhap ho & ten: ');readln(ht);
write('Nhap diem toan: ');readln(t);
write('Nhap diem van: ');readln(v);
TB:=(t+v)/2;
clrscr;
writeln(ht);
writeln('Toan: ',t:2:1,'; Van: ',v:2:1);
write('Diem trung binh: ',TB:2:1);
readln
End.
program bai_giai;
uses crt;
var t,v:longint;hvt:string;tb:real;
begin
clrscr;
write('nhap ho va ten:');readln(hvt)
write('nhap diem toan:');readln(t);
write('nhap diem van:');readln(v);
tb:=(t+v)/2;
wrieln('ho va ten:',hvt);
writeln('diem toan:',t);
wrieln('diem van:',v);
writeln('diem trung binh:',tb);
readln
end.