Quảng cáo
1 câu trả lời 338
Program TBC;
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Write ('a='); readln (a);
Write ('b='); readln (b);
Write ('c='); readln (c);
TBC:= (a+b+c)/3;
Writeln ( '(a+b+c)/3=', TBC);
Readln;
End.
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Write ('a='); readln (a);
Write ('b='); readln (b);
Write ('c='); readln (c);
TBC:= (a+b+c)/3;
Writeln ( '(a+b+c)/3=', TBC);
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45332 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34756 -
Đã trả lời bởi chuyên gia
30550 -
Hỏi từ APP VIETJACK28028
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22305
Gửi báo cáo thành công!
