Viết chương trình con thủ tục tính tổng 2 số a và b

0 bình luận về “Viết chương trình con thủ tục tính tổng 2 số a và b”

1. uses crt;
   var a,b,s:integer;
   procedure tong(m,n:integer);
   begin s:=a+b; write(‘Tong la: ‘,s); end;
   begin
      clrscr;
      write(‘Nhap a: ‘); readln(a);
      write(‘Nhap b: ‘); readln(b);
      tong(a,b);
      readln
   end.

   Bình luận