Viết một chươnh trình sử dụng thủ tục tính trung bình cộng của ba số được nhập từ bàn phím . Kết quả được in ra màn hình
2 câu trả lời
Uses crt;
Var a,b,c,t:integer;
begin
write(' a='); readln(a);
write(' b='); readln(b);
write(' c='); readln(c);
t:=(a+b+c)/3;
write(' Trung binh con 3 so bang',t);
readln;
emd.
program bai_giai;
uses crt;
var a,b,c:integer;
procedure tbc(x,y,z:integer);
var t:integer;
begin
t:=x+y+z;
write(t/3:0:2);
end;
BEGIN
clrscr;
readln(a,b,c);
tbc(a,b,c);
readln;
end.
Câu hỏi trong lớp
Xem thêm
