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ố

0 bình luận về “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ố”

1. 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.

   Bình luận

2. 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.

   Bình luận