0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Uses Crt;
Var a,b,c,d,TBN: real;
begin
clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
Write('Nhap c: '); Readln(c);
Write('Nhap d: '); Readln(d);
TBN:= (a*b*c*d)/4;
Write(TBN:0:2);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
program trung_binh_nhan;
uses crt;
var n,s:integer;
begin
clrscr;
s:=1;
write('so thu nhat');
readln(n);
s:=s*n;
writeln('so thu hai ');
readln(n);
s:=s*n;
writeln('so thu ba ');
readln(n);
s:=s*n;
writeln('so thu tu ');
readln(n);
s:=s*n;
writeln('trung binh nhan của 4 so la ',sqrt(sqrt(s)));
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin