ответ: 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.
ответ: 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.