回 帖 发 新 帖 刷新版面

主题:填空:求m,n最小公倍数

填空:求m,n最小公倍数
var m,n,i,s:integer;
begin
  readln(m,n);
  i:=1;
  s:=m*i;
  while ________________ do
    begin
      ________________;
      s:=m*i
    end;
  writeln(s);
end.
0

回复列表 (共3个回复)

沙发

s mod n <> 0
inc(i)

板凳

还有一种办法:
var
    m,n,x:longint;
begin
    readln(m,n);
    for x:=1 to m*n do
    begin
        if (x mod m=0) and (x mod n=0) then
        begin
            writeln(x);
            break;
        end;
    end;
end.

3 楼

[quote]还有一种办法:
var
    m,n,x:longint;
begin
    readln(m,n);
    for x:=1 to m*n do
    begin
        if (x mod m=0) and (x mod n=0) then
        begin
            writeln(x);
            break;
        end;
    end;
end.[/quote]

你的begin和end太多了吧

我来回复

您尚未登录,请登录后再回复。点此登录或注册