引例:求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。vars:real;n:integer;{n分母}begins:=0;n:=0;whiles<=10do{当s的值还未超过10时}...