nhập 2 số nguyên bất kì từ bàn phím .Tính và đưa ra ngoài màn hình tổng TBC của 2 số đó

0 bình luận về “nhập 2 số nguyên bất kì từ bàn phím .Tính và đưa ra ngoài màn hình tổng TBC của 2 số đó”

1. uses crt;
   var a,b:longint;
   begin
   clrscr;
      write(‘a,b=’);readln(a,b);
      writeln(‘TBC:’,(a+b)/2:0:2);
   readln;
   end.

   Bình luận

2. Used crt;

   Var m,n;

   Begin

   Clrscr;

   Writeln(‘Nhap m:’);Readln(m);

   Write(‘Nhap n:’);Readln(n);

   Clrscr;

   Writeln(‘Tong la:’,m+n);

   If m>n then writeln(‘Hieu la:’,m-n) else writeln(‘Hieu la:’,n-m);

   Writeln(‘Tich la:’,m*n);

   If n<>0 then write(‘Thuong la:’,m:n) else if m<>0 then write(‘Thuong la:’,n:m) else write(‘ Ko tinh dc’);

   Readln;

   End.

   Bình luận