Question

Viết chương trình tính trung bình cộng của 4 số nguyên được nhập từ bàn phím?

Answer 1

program Trung_Binh_Cong;

uses crt;

var t1,t2,t3,t4,tong: real;

begin

clrscr;

write('nhap so thu nhat =');

readln(t1);

write('nhap so thu hai =');

readln(t2);

write('nhap so thu ba =');

readln(t3);

write('nhap so thu tu =');

readln(t4);

tong:=t1+t2+t3+t4;

write('Trung binh cong cua 4 so = ' ,tong div 4);

readln;

end.

Answer 2

Program Trung_binh_cong;

Uses crt;

Var a,b,c,d:integer;

Begin

Clrscr;

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

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

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

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

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

Readln

End.