Какой из перечисленных вариантов кода позволяет перевернуть строку, без использования вспомогательной строки?
(Отметьте один правильный вариант ответа.)
Варианты ответа
var s:string; f:Char i:byte;begin readln(s); for i:=1 to Length(s) div 2 do begin f:=s[i]; s[i]:=s[Length(s)-i+1]; s[Length(s)-i+1]:=f; end; writeln(s);end.(Верный ответ)
var s:string; f:Char i:byte;begin readln(s); for i:=1 to Length(s) * 2 do begin f:=s[i]; s[i]:=s[Length(s)-i+1]; s[Length(s)-i+1]:=f; end; writeln(s);end.
var s:string; f:Char i:byte;begin readln(s); for i:=1 to Length(s) - 1 do begin f:=s[i]; s[i]:=s[Length(s)-i+1]; s[Length(s)-i+1]:=f; end; writeln(s);end.