! | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
var
arr: array of char;
i,o: Integer;
s,s2: string;
begin
writeln('Slovo: ');
readln(s);
setLength(arr,length(s));
for i:=0 to length(s) do
begin
arr[i]:=s[i];
end;
for o:=length(s) downto 0 do
begin
s2:=s2+arr[o];
end;
writeln(s2);
readln
end.
var
arr: array of char; { <--- Не боишься получить ошибку здесь? }
...
for o:=length(s) downto 0 do { <--- До какого значения? }
var
arr: array [1..255] of char;
i,o: Integer;
s,s2: string;
begin
writeln('Slovo: ');
readln(s);
for i:=0 to length(s) do
begin
arr[i]:=s[i];
end;
for o:=length(s) downto 1 do
begin
s2:=s2+arr[o];
end;
writeln(s2);
readln
end.