Question

Viết chương trình tính trung bình cộng của 3 số c,d và e . Biết 3 số này là số thực

Answer 1

uses crt;

var c,d,e:real;

begin

clrscr;

readln(c,d,e);

writeln((c+d+e)/3:4:2);

readln;

end.

Answer 2

Var a,b,c,tb:real;

Begin

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b);

Write('Nhap c = ');readln(c);

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

Write('Trung binh cong la ',tb:10:2);

Readln;

End.