Viết chương trình tính trung bình cộng của bốn số

0 bình luận về “Viết chương trình tính trung bình cộng của bốn số”

1. Program TBC;

   Uses Crt;

   Var T,a,b,c,d:real;

   Begin

   Write(‘Trung binh cong cua bon so:’);Readln(a,b,c,d);

   T=(a+b+c+d)/4;

   Writeln(‘Trung binh cong la:’,T:10;2);

   Readln;

   End.

   Bình luận

2. Program NN;
   Uses crt;
   Var a,b,c,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap 4 so: ‘); Readln(a,b,c,d);
           Write((a+b+c+d)/4:0:2);
           Readln
   End.

   Bình luận