Question

Nhập 2 số từ bàn phím. In ra màn hình tổng, hiệu, tích, thương của 2 số đó

Answer 1

Answer 2

uses crt;
var a,b,t,h,s:integer;
thuong:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
t:=a+b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
h:=a-b;
writeln('hieu cua hai so ',a,' va ',b,' la: ',h);
s:=a*b;
writeln('tich cua hai so ',a,' va ',b,' la: ',s);
if b<>0 then
begin
thuong:=a/b;
writeln('thuong cua hai so ',a,' va ',b,' la: ',thuong:4:2);
end
else writeln('vui long nhap lai so chia b');
readln;
end.

Answer 3

uses crt;

var a,b,t,h,s:integer;

thuong:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

t:=a+b;

h:=a-b;

s:=a*b;

thuong:=a/b;

writeln('tong cua hai so la: ',t);

writeln('hieu cua hai so la: ',h);

writeln('tich cua hai so la: ',s);

if b<>0 then writeln('thuong cua hai so la: ',thuong:4:2)

else writeln('vui long nhap so chia khac 0');

readln;

end.