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