viết chương trình tính trung b ình nhân của bốn số a b c d sử dụng chương trình con
2 câu trả lời
uses crt;
var t,tb,a,b,c,d:real;
function tbn(a,b,c,d:real):real;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
write('nhap d: ');readln(d);
t:=a*b*c*d;
tb:=exp(1/4*ln(t));//cong thuc tinh can bac 4 cua t
end;
begin
clrscr;
tbn(a,b,c,d);
readln;
end.
uses crt;
var a,b,c,d:longint;
function tbc(a,b,c,d:longint):real;
begin
tbc:=(a+b+c+d)/4;
end;
begin
clrscr;
write('a,b,c,d=');readln(a,b,c,d);
writeln('Trung binh cong: ',tbc(a,b,c,d));
readln
end.
