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

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

Question

Юреня

13 июня, 17:50

+1

Ответы (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.

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