Question

这段pascal语言中用除法为什么会错？

var
i,n:integer;
begin
read(n);
if n mod 2=0 then
for i:=1 to n/2 do (这里的除法换成乘法就可以）
n:=n+i;
writeln(n);
end.

Answer 1

for i:=1 to n/2 do

要改成：
for i:=1 to n div 2 do

因为n/2做除法后的商是一个实数，不能用在for循环中。