Viết chương trình tính trung bình cộng của bốn số a,b,c,d. Với a,b,c,d được nhập từ bàn phím (Pascal)
Giúp mình với! Hic…hic…????????
Viết chương trình tính trung bình cộng của bốn số a,b,c,d. Với a,b,c,d được nhập từ bàn phím (Pascal)
Giúp mình với! Hic…hic…????????
Program Trung_binh_cong;
uses crt;
Var T,a,b,c,d:real;
Begin
clrscr;
Writeln(‘Nhap bon so can tinh trung binh cong:’);readln(a,b,c,d);
T:=(a+b+c+d)/4;
Writeln(‘Trung binh cong la:’,T:10;2);
readln;
End.
Var T,a,b,c,d:real;
Begin
Writeln(‘4 so a,b,c,d lan luo la:’);
readln(a,b,c,d);
T:=(a+b+c+d)/4;
Writeln(‘Trung binh cong cua 4 so :’,T:8:4);
readln;
End.