Составить программу в Паскале. В данном слове произвести обмен первого и последнего...

Question

Составить программу в Паскале.
В данном слове произвести обмен первого и последнего символов. (слово любое)

Answer 1

Var
   S:string;
   C:char;
Begin
Write('Введите слово: ');
ReadLn(S);
C:=S[1];
S[1]:=S[Length(S)];
S[Length(S)]:=C;
WriteLn(S);
End.