|
sample02.PAS |
|
{* Перестановка букв в слове *}Unit SAMPLE02; InterfaceImplementationBegin writeln( 'Перестановка букв в слове (циклический сдвиг вправо) '); End. Program pas;
Uses sample02.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
s : String;
i : integer;
j : integer;
n : integer;
Begin
readln(s);
s := s[length(s)] + copy(s, 1, length(s) - 1);
writeln(s);
End.
|