Всем Доброго времени суток!
Есть задача:
Напишите программу обращения слова.
Пример :
Данные: «СЛОВО»
Результат: «ОВОЛС»
var i,l:byte;
s:string;
c:char;
begin
readln(s);
l:=length(s);
for i:=1 to (l div 2) do begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
writeln(s);
readln;
end.
var i,l:byte;
s:string;
c:char;
begin
readln(s);
l:=length(s);
for i:=1 to (l div 2) do begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
writeln(s);
readln;
end.