Question

Viết chương trình nhập từ bàn phím hai số nguyên dương a,b. Thực hiện Tính tổng số đối xứng với a và số đối xứng với 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.