Question

Viết chương trình nhập từ bàn phím 2 số nguyên dương a, b và thực hiện:

a) In ra số đối xứng của số nguyên dương a và số đối xứng của số nguyên dương b.

b) In ra tổng của số đối xứng với a và số đối xứng với b.

Biết rằng ta gọi số "đối xứng" với số a và b là số nguyên dương thu được từ a bằng cách đảo ngược thứ tự các chữ số của a và b.

Answer 1

uses crt;
var a,b,i,x,y,n,m:integer;
st1,st2,st3,st4:string;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
str(a,st1);
str(b,st2);
st3:='';
for i:=length(st1) downto 1 do
st3:=st3+st1[i];
st4:='';
for i:=length(st2) downto 1 do
st4:=st4+st2[i];
val(st3,x,y);
val(st4,n,m);
writeln('So doi xung cua ',a,' la: ',x);
writeln('So doi xung cua ',b,' la: ',n);
writeln('Tong hai so doi xung cua ',a,' va ',b,' la: ',x+n);
readln;
end.