pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶;如果你每步跨3阶,那么最后剩2 阶;如果你每步跨5阶,那么最后剩4 阶;如果你每步跨6阶,那么最后剩5 阶
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 11:00:38
![pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶;如果你每步跨3阶,那么最后剩2 阶;如果你每步跨5阶,那么最后剩4 阶;如果你每步跨6阶,那么最后剩5 阶](/uploads/image/z/2788425-9-5.jpg?t=pascal+%E8%AF%AD%E8%A8%80while+%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5+%E5%9C%A8%E4%BD%A0%E5%89%8D%E9%9D%A2%E6%9C%89%E4%B8%80%E4%B8%AA%E9%95%BF%E9%95%BF%E7%9A%84%E9%98%B6%E6%A2%AF%2C%E5%A6%82%E6%9E%9C%E4%BD%A0%E6%AF%8F%E6%AD%A5%E8%B7%A82%E9%98%B6%2C%E9%82%A3%E4%B9%88%E6%9C%80%E5%90%8E%E5%89%A91+%E9%98%B6%EF%BC%9B%E5%A6%82%E6%9E%9C%E4%BD%A0%E6%AF%8F%E6%AD%A5%E8%B7%A83%E9%98%B6%2C%E9%82%A3%E4%B9%88%E6%9C%80%E5%90%8E%E5%89%A92+%E9%98%B6%EF%BC%9B%E5%A6%82%E6%9E%9C%E4%BD%A0%E6%AF%8F%E6%AD%A5%E8%B7%A85%E9%98%B6%2C%E9%82%A3%E4%B9%88%E6%9C%80%E5%90%8E%E5%89%A94+%E9%98%B6%EF%BC%9B%E5%A6%82%E6%9E%9C%E4%BD%A0%E6%AF%8F%E6%AD%A5%E8%B7%A86%E9%98%B6%2C%E9%82%A3%E4%B9%88%E6%9C%80%E5%90%8E%E5%89%A95+%E9%98%B6)
pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶;如果你每步跨3阶,那么最后剩2 阶;如果你每步跨5阶,那么最后剩4 阶;如果你每步跨6阶,那么最后剩5 阶
pascal 语言while 循环语句
在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶;如果你每步跨3阶,那么最后剩2 阶;如果你每步跨5阶,那么最后剩4 阶;如果你每步跨6阶,那么最后剩5 阶;如果你每步跨7阶,那么正好走完,一阶不剩,问你这条阶梯最少有多少阶?
我是新手,完全没思路啊,哪位帮忙把具体程序写在下面.
pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶;如果你每步跨3阶,那么最后剩2 阶;如果你每步跨5阶,那么最后剩4 阶;如果你每步跨6阶,那么最后剩5 阶
var i,ans:longint;
find:boolean;
begin
i:=0;find:=false;
while not find do
begin
i:=i+1;
if (i mod 2=1)and(i mod 3=2)and(i mod 5=4)and(i mod 6=5)and(i mod 7=0) then
begin
find:=true;
ans:=i;
end;
end;
end.