Question

急！！！Pascal编程语言的 如果变量a变化(变化量未知)，那么b：=b+1 这句程序怎么写！！

Answer 1

用随机数实现变量的变化。
var
	i,a0,a,b:integer;
begin
	randomize;
	b:=0;
	a0:=trunc(random*101);
	for i:=1 to 100-1 do begin
		a:=trunc(random*101);
		if a<>a0 then begin inc(b); a0:=a; end;
	end;
	writeln(b);
end.