Viết chương trình nhập vào từ bàn phím ba số nguyên a, b, c. Hãy tính tổng và trung bình cộng của ba số nguyên đó và xuất kết quả ra màn hình

Câu trả lời của mình:

Program Trungbinhcong ;

Uses crt;

Var a,b,c: interger

       trung_binh:real

Begin 

       Writeln(‘Nhap so nguyen a=’) ; readln(a);

       Writeln(‘Nhap so nguyen b=’) ; readln(b);

       Writeln(‘Nhap so nguyen c=’) ; readln(c);

trung_binh:=(a+b+c)/3;

       Writeln(‘Gia tri 3 so nguyen a,b,c la:’,trungbinh);

readln;

end.

Program baitap;

Uses crt;

Var a,b,c:integer;

Begin

Clrscr;

Write('Nhap a,b,c:'); Readln(a,b,c);

Writeln('Tong cua 3 so do:',a+b+c);

Writeln('Trung binh cong cua 3 so do:',(a+b+c)/3:5:2);

Readln

End.