Program slovo; var A,C:string; {Описание строковой переменной} i:integer; begin read(A); write('Первоначальное слово: ',A); C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)} i:=length(A); {Присвоение переменной i значения длинны строки} A[1]:=A[i]; {Присвоение первому значению значение последнего} A[i]:=C[1]; {Присвоение последнеe значению значение первого} write('Полученное слово: ',A); end.
b: integer;
begin
read (A);
C:=A;
b:=length(A);
A[1]:=A[b];
A[b]:=C[1];
write (A);
end.
var A,C:string; {Описание строковой переменной}
i:integer;
begin
read(A);
write('Первоначальное слово: ',A);
C:=A; {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)}
i:=length(A); {Присвоение переменной i значения длинны строки}
A[1]:=A[i]; {Присвоение первому значению значение последнего}
A[i]:=C[1]; {Присвоение последнеe значению значение первого}
write('Полученное слово: ',A);
end.