nhập 3 số nguyên a,b,c từ bàn phím .In ra màn hình trung bình cộng của 3 số đã nhập

0 bình luận về “nhập 3 số nguyên a,b,c từ bàn phím .In ra màn hình trung bình cộng của 3 số đã nhập”

1. Uses crt;

   Var a,b,c,s:integer;

   Begin

   Clrscr;

   Writeln(‘nhap a’); readln(a);

   Writeln(‘nhap b’); readln(b);

   Writeln(‘nhap c’); readln(c);

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

   Writeln ( ‘so trung bình la: ‘,s’);

   Readln;

   End.

   Bình luận