Question

cho a và b là hai số nguyên dương.Ta gọi tổng đối xứng của a và b là số đối xứng với tổng của số dối xứng với a và số đối xứng với b.Viết chương trình cho phép nhập hai số nguyên dương a,b và in ra tổng đối xứng của chúng

Vd:nếu a=25 và b=26 thì tổng số đối xứng với a và số đối xứng với b là 52+62=114.vì thế tổng đổi xứng của a và b là 411.

Answer 1

Program HOC24;

var a,b: integer;

tong: longint;

function dn(x: longint): longint;

var t: longint;

begin

dn:=0; t:=0;

while x<>0 do

begin

t:=t*10+(x mod 10);

x:=x div 10;

end;

dn:=t;

end;

begin

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

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

tong:=dn(a)+dn(b);

write('Tong doi xung cua a va b la: ',dn(tong));

readln

end.