Lập trình từ bàn phím các số thực a,b rồi đưa ra màn hình trung bình cộng các bình phương của 2 số đó
2 câu trả lời
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap 2 so thuc: '); readln(a,b);
writeln('Trung binh cong cac binh phuong cua ',a:0:2,'; ',b:0:2,': ',(a*a+b*b)/2:0:2);
readln;
end.
Program BTT;
Uses crt;
Var a,b,tbc: extended;
Begin
Clrscr;
Write('Nhap a, b: '); Readln(a,b);
tbc:=(sqr(a)+sqr(b))/2;
Write('Trung binh cong cac binh phuong cua hai so do la: ',tbc:0:2);
Readln
End.
