您所在位置：主题：帮忙看看这个程序为什么运行不起来
wenzhang2
[专家分：0] 发布于 2005-04-09 21:08:00
program zwz(input,output);
var m,n,s,i:integer;
begin
read(m,n);
s:=1;
i:=0;
begin
while s mod n<>0 do
i:=i+1;
s:=m*i;
end;
end.
var m,n,s,i:integer;
begin
read(m,n);
s:=1;
i:=0;
begin
while s mod n<>0 do
i:=i+1;
s:=m*i;
end;
end.
