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

2 câu trả lời

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.

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.