Tin học Viết chương trình tính trung bình cộng của bốn số 30/07/2021 By Piper Viết chương trình tính trung bình cộng của bốn số
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. Trả lời
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); ReadlnEnd. Trả lời
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.
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.