Xác định (INPUT) .(OUTPUT) và viết các chương trình : tính số trung bình cộng 3 số nguyên dương nhập từ bàn phí Tính tích và thương 2 số nguyên dương

0 bình luận về “Xác định (INPUT) .(OUTPUT) và viết các chương trình : tính số trung bình cộng 3 số nguyên dương nhập từ bàn phí Tính tích và thương 2 số nguyên dương”

1. 1. Input : 3 số nguyên dương

      Output : TBC của 3 số

   chương trình

   program az;

   uses Crt;

   var a,b,c : integer;

         TBC  : real;

   begin

   clrscr;

   Write(‘NHap 3 so = ‘); readln(a,b,c);

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

   Write(‘Trung binh cong 3 so la ‘,TBC);

   readln

   end.

   2.

   program az;

   uses Crt;

   var a,b : integer;

         T_1,T_2,t : real;

   begin

   clrscr;

   Write(‘Nhap 2 so = ‘); readln(a,b);

   t :=a*b;

   T_1 := a/b;

   T_2 := b/a;

   Write(‘Thuong 2 so la : ‘,T_1);

   Write(‘Thuong 2 so la : ‘,T_2);

   Write(‘Tich 2 so la : ‘,t);

   readln

   end.

   Bình luận

2. Câu 2:

   var a,b,tich,thuong:integer;

   begin

            write(‘nhap 2 so:’);readln(a,b);

            tich:=a*b;

            thuong:=a/b;

            writeln(‘tich 2 so la:’,tich);

            writeln(‘thuong 2 so la:’,thuong);

            readln

   end.

   Bình luận