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ố đó?

Question

lanngoc · Answer

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.

tonhu · Answer

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.

0 bình luận về “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ố đó?”