Viết chương trình pascal tính trung bình cộng của bốn số a,b,c,d
2 câu trả lời
program bai_giai;
uses crt;
var a,b,c,d:longint;
begin
clrscr;
write('nhap 4 so a,b,c,d:=');readln(a,b,c,d);
write('trung binh cong:=',(a+b+c+d)/4:4:2);
readln;
end.
program trung_binh;
uses crt;
var a, b, c, d : real;
begin
clrscr;
write('Nhap a, b, c, d = ');
readln(a, b, c, d);
a := (a + b + c + d) / 4;
write('Trung binh cong 4 so = ', a : 0 : 2);
readln
end.
Câu hỏi trong lớp
Xem thêm
