Cho 2 số nguyên nhập từ bàn phím.Viết chương trình tính giá trị trung bình cộng của 2 số
Cho 2 số nguyên nhập từ bàn phím.Viết chương trình tính giá trị trung bình cộng của 2 số
By Maria
By Maria
Cho 2 số nguyên nhập từ bàn phím.Viết chương trình tính giá trị trung bình cộng của 2 số
Program TBC;
uses crt;
var a,b TBC: integer;
Begin
clrscr;
Write(‘ nhap so a ‘); readln(a);
Write(‘ nhap so b ‘); readln(b);
TBC:=(a+b)/2;
Writeln(‘ Trung binh cong cua hai so la: ‘,TBC);
readln
End.
Program tinh_Tbc;
Uses crt;
Var a,b : integer;
Tbc: real;
Begin
Writeln (‘Nhap a,b=’);
Readln (a,b);
Tbc:= (a+b)/2;
Writeln (‘Trung binh cong la:’, Tbc:6:2);
Readln
End.