1楼：匿名用户
vara, b: integer;//两个整bai数du
res: integer;//最小公倍数zhibegin
readln(a);//读取第一个整数
readln(b);//读取第二个整数
res := b;//认为最小公倍数的起始值dao为bif a > b then
res := a;//如果a>b, 那么最小公倍数起始值为arepeat
inc(res);//res递加
until (res mod a = 0) and (res mod b = 0);//是最小公倍数就退出
writeln(res);//输出最小公倍数readln;
end.//附上运行截图
2楼：匿名用户
varm,n,b:integer;
begin
readln(m,n);
if m>n then b:=m
else b:=n;
while not ((b mod n=0)and(b mod m=0)) do inc(b);
writeln(b);
readln;
end.
3楼：匿名用户
我不会pascal，就用c++试下吧，让后面高手来#includeusing namespace std;int main( )cout<<"最大公约数为："<倍数为："<这只能专算是一种算法吧，属，，，不好意思了
4楼：匿名用户
var m,n,r,a,b:int64;
begin
readln(m,n);//(输入两制
个数);
a:=m;
b:=n;
r:=m mod n;
while r<>0 do(用辗转法求最大公约数);
begin
m:=n;
n:=r;
r:=m mod n;
end;
write(a*b div n);(利用m*n=(m,n)*[m,n]);
end.
free pascal（pascal）题目 输入格式：两个正整数，分别表示a和b（1≦a，b≦1 20
5楼：匿名用户
if a<=0 then k=1;
if a=1 另外讨论
具体的等下写好了给你
6楼：匿名用户
楼上的程序中的k:=k div 5;应改为n:=n div 5;
c语言求最小值输入正整数n再输入n个整数
1楼 育知同创教育 把这些数都装在一个数组里面 比如a for int i 0 ia j printf d a 0 2楼 匿名用户 include int main int argc char argv printf 依次输入 d个整数 n n for i 0 i n i printf 最小数 d ...
c语言编程输入正整数n1ltn 10再输入数
1楼 匿名用户 int n int a b scanf d n a int malloc sizeof int n b int malloc sizeof int n 1 for int i 0 i n i scanf d a i for int i 1 i n i free a free b 1 ...
c语言输入整数1ltnlt100在输入n个字符将
1楼 匿名用户 1，读入字符组 2，后判断每个字符的类型 3，转换该转的就行了 2楼 include int main str n 0 puts str return 0 3楼 情缘掠影 大小写转换是变量大写加32变小写，小写减32变大写。 c语言输入一个整数 1 4楼 匿名用户 include s...