Viết chương trình nhập vào 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ố nguyên Giúp mình nhanh với ạ!

0 bình luận về “Viết chương trình nhập vào 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ố nguyên Giúp mình nhanh với ạ!”

1. Program Trungbinhcong ;

   Uses crt;

   Var a,b,c: interger

          trung_binh:real

   Begin 

          Writeln(‘Nhap so nguyen a=’) ; readln(a);

          Writeln(‘Nhap so nguyen b=’) ; readln(b);

          Writeln(‘Nhap so nguyen c=’) ; readln(c);

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

          Writeln(‘Gia tri 3 so nguyen a,b,c la:’,trungbinh);

   readln;

   end.

   Xin hay nhất

   Trả lời

2. Uses crt;
   Var a,b,c,tong:integer;
   Begin
   Clrscr;
   Write(‘Nhap 3 so a, b, c = ‘);readln(a,b,c);
   Tong:=a+b+c;
   Write(‘Trung binh cong cua 3 so: ‘,Tong div 3);
   Readln
   End.

   Trả lời