2024年职业卫生考试答案
@空趴2112:输入2个整数,输出平方和,平方根freepascal - ,求详细?
容田15374931176…… 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.
容田15374931176…… 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.