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.