viết hương trình tính trung bình cộng của 4 số a,b,c,d

2 câu trả lời

(A+B+C+D)÷4

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

Câu hỏi trong lớp Xem thêm