Nhập trình Pascal trung bình cộng của A và B, tính A và B nhập vào từ máy

0 bình luận về “Nhập trình Pascal trung bình cộng của A và B, tính A và B nhập vào từ máy”

1. program CT;

   uses crt;

   var a,b:byte;

   kq:byte;

   Begin

   Writeln(‘Nhap so a’);

   Readln(a);

   Writeln(‘Nhap so b’);

   Readln(b);

   kq:=(a+b)/2;

   Writeln(‘Trung binh cong cua a va b la ‘,kq);

   Readln;

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt; 

   Var a,b : real;

   Begin

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

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

   Write(‘so trung binh cua hai so la’,(a+b)/2 );

   Readln

   End.

   Bình luận