free pascal 求最大公约数与最小公倍数

来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/06 10:59:15
freepascal求最大公约数与最小公倍数freepascal求最大公约数与最小公倍数freepascal求最大公约数与最小公倍数varn,m,r,t,a:integer;beginreadln(n

free pascal 求最大公约数与最小公倍数
free pascal 求最大公约数与最小公倍数

free pascal 求最大公约数与最小公倍数
var n,m,r,t,a:integer;
begin
readln(n,m);
a:=n*m;
if n