Question

Viết chương trình tính trung bình cộng của 4 số a,b,c,d ( Nhập từ bàn phím )

Answer 1

Uses crt;

Begin clrscr;

Write(‘a=’); readln(a);

Write(‘b=’); readln(b);

Write(‘c=’); readln(c);

Write(‘d=’); readln(d);

Writeln(‘TBC=’,(a+b+c+d)/4:2:2);

Readln

End.

Answer 2

Program TBC;

uses crt;

Var a,b,c,d:Real;

Begin

Clrscr;

Write('Nhap so thu nhat:'); Readln(a);

Write('Nhap so thu hai:'); Readln(b);

Write('Nhap so thu ba:'); Readln(c);

Write('Nhap so thu tu:'); Readln(d);

Writeln('Trung binh cong cua 4 so la:', a+b+c+d/4);

Readln

End.