Viết CT tính tổng và trung bình cộng của a, b , c (lm tròn 1 chữ số thập phân)
2 câu trả lời
Program TH;
Uses Crt;
Var a,b,c:integer;
Begin
clrscr;
Write('Nhap so a: '); readln(a);
Write('Nhap so b: '); readln(b);
Write('Nhap so c: '); readln(c);
Write('Tong 3 so tren la: ', a+b+c);
Write('Trung binh cong 3 so tren la: ',(a+b+c)/3:4:1);
Readln;
End.
program kaito;
uses crt;
var a, b, c, tb, s: real;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
s:=a+b+c;
tb:=s/3;
writeln('Tong cua 3 so a, b, c la: ',s);
writeln('Trung binh cong cua 3 so a, b, c la: ',tb:0:1);
readln
end.
CHÚC BẠN HỌC TỐT!!!
Câu hỏi trong lớp
Xem thêm
