Bài toán: Lập trình nhập vào từ bàn phím 2 số nguyên dương M,N. Tính và đưa ra màn hình tổng, hiệu, tích, thương của 2 số đó?
2 câu trả lời
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.
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 {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi}
Writeln(a,'/',b,'=',a/b);
readln;
End.
