Lập trình nhập vào 2 số thực a và b Tính giá trị tổng và giá trị trung bình của 2 số trên sau đó thông báo ra màn hình
2 câu trả lời
Uses crt;
Var a,b,tong, TB: real;
Begin
Clrscr;
Writeln('nhap so a'); readln(a);
Writeln('nhap so b'); readln(b);
tong:=a+b;
TB:=tong/2; { vì chỉ có 2 phần tử a và b}
Writeln(' vạy tong cua bạn la', tong);
Writeln(' vạy TB cua 2 so la', TB);
Readln;
End.
program sothuc;
uses crt;
var a,b,t,tb:real;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
t:=a+b;
tb:=(a+b)/2;
writeln('Tong la: ',t:0:2);
writeln('Trung binh la: ',tb:0:2);
readln
end.
