viết chương trình nhập vào 2 số nguyên a,b (b<>o).in ra màn hình tổng ,hiệu,tích,thương của 2 số vừa nhập

0 bình luận về “viết chương trình nhập vào 2 số nguyên a,b (b<>o).in ra màn hình tổng ,hiệu,tích,thương của 2 số vừa nhập”

1. Program tinh_tong;

   Var a,b:interger

            c:real;

   Begin

   Write(‘hay nhap so a’);

   Readln(a);

   Write(‘hay nhap so b’);

   Readln(b);

   C:=a+b;  (Chỗ nay bạn có thể đổi dấu ở a+b thành -*/ để có phép nhân , trừ chia)

   Write(‘ket qua la’);

   Write(c);

    

   Readln

   End.

   Bình luận
2. Program Tong_hieu_tich_thuong;

   Uses crt;

   Var a:integer;

       b:integer;

   Begin

       clrscr;

       write('nhap so thu 1 :');

       readln(a);

       writeln('ban vua nhap so: ',a);

       write('nhap so thu hai :');

       readln(b);

       writeln('ban vua nhap so thu 2: ',b);

       Writeln(a,'+',b,'=',a+b);

       Writeln(a,'-',b,'=',a-b);

       Writeln(a,'*',b,'=',a*b);

       if b<>0 then 

       Writeln(a,'/',b,'=',a/b);

       readln;

   End.

   Bình luận