Viết chương trình con Sử dụng thủ tục để nhập dử liệu điểm hai môn toán văn. In ra điểm hai môn toán văn ; điểm trung bình hai môn
1 câu trả lời
program phuongt;
uses crt;
var t, v: real;
procedure nhap;
begin
writeln('Diem toan: ', t:3:1);
writeln('Diem van: ', v:3:1);
end;
function tong: real;
begin
tong:=t+v;
write('Diem trung binh hai mon: ', tong:3:1);
end;
begin
clrscr;
write('Nhap diem toan: '); readln(t);
write('Nhap diem van: '); readln(v);
nhap;
tong;
readln
end.
