Составить программу в Паскале.

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

Question

Алиска

7 июня, 10:31

+3

Ответы (1)

Знаете ответ на вопрос?

Эмиля · 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.

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