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

来源:学生作业帮助网 编辑:六六作业网 时间:2025/02/07 11:51:01
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