pascal 小蟲爬墻

我不知道妳這是哪錯了，因為我根本不知道妳的思路，給妳看壹個正確的，妳慢慢去看吧！采納！！！

var x,y,t{時間}:integer;

begin

write('x,y=');

readln(x,y);

while x-y>0 do

begin

x:=x-y+1;

t:=t+2;

end;

writeln(t+1);

readln;

end.

如果想知道具體步驟請追問

上一篇:求救，高等數學，單變量微積分，如圖。

下一篇:P四是什麽文件