Question

Определите значение переменной X После выполнения следующего фрагмента программы:

x:=1;
for i:=1 to 5 do begin x:=x+2*i;
x:=x+1;
end;
​

Answer 1

Ответ: 36

Объяснение: вот полноценная программа

var

x,i,n:integer;

begin

x:=1;

i:=0;

for i:=1 to 5 do begin x:=x+2*i;

x:=x+1;

end;

writeln('Ответ = ',x);

readln;

end.