Question

Объясните пожалуйста, почему паскаль выдает ошибку (Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла)?
var x,a,i,b:integer;
begin for i:= 1 to 10000 do
begin
x:=i;
a:=3*x +23;
b:=3*x -17;
while a <> b do
begin
if a > b then
a:= a - b
else
b:= b - a
end;
end;
if a=20 then
writeln (i);
end.

Answer 1

Ответ:

это не ошибка, а предупреждение, просто вы используете устаревшую методику. Нужно описывать i только внутри цикла: for var i:=1 to 10000 do, но это не критично