Question

Viết chương trình cho phép tính trung bình cộng của bốn số.

Answer 1

Program TB_Cong_4_So;

 

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: ‘,(a+b+c+d)/4):10:2);

Readln

end.

Answer 2

Const fi='Nhap.inp';

          fo='Xuat.out';

Var a,b,c,d: Integer;

BEGIN

 assign(f,fi);

reset(f);

Write(f,

readln(f,a,b,c,d);

close(f);

assign(f,fo);

rewrite(f);

writeln((a+b+c+d)/4:0:2);

close(f);

END.