QT

Viết lập trình nhập vào giá trị bất kì a,b,c Tính và đưa ra s=(a+b+c)/3

NT
21 tháng 12 2022 lúc 15:07

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln((a+b+c)/3:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
1L
Xem chi tiết
DD
Xem chi tiết
NT
Xem chi tiết
KT
Xem chi tiết
EE
Xem chi tiết
HT
Xem chi tiết
LT
Xem chi tiết
TL
Xem chi tiết
TM
Xem chi tiết