抖音考试答案2024
@陆厘5554:输入2个整数,输出平方和,平方根freepascal - ,求详细?
况逄13714451833…… var x1,x2,a,b:integer; begin readln(x1,x2); a:=x1;b:=x2; while a mod bb then a:=a-b else b:=b-a; if aelse writeln(b,' ',x1*x2 div b); end.
况逄13714451833…… var x1,x2,a,b:integer; begin readln(x1,x2); a:=x1;b:=x2; while a mod bb then a:=a-b else b:=b-a; if aelse writeln(b,' ',x1*x2 div b); end.