Напишите программу на PascalABC - дано слово. Переставьте его последнюю букву на место первой. Подразумевается при этом, что все последующие буквы будут сдвинуты вправо на одну позицию.
Вводится строка, состоящая из одного слова (последовательность строчных латинских букв без пробелов) длиной не более 150 символов.

Ответ

Автор - HackerXX

var

str:string;

s:char;

i:integer;

Begin

readln(str);

s := str[length(str)];

str := str + '0';

for i := length(str)-1 downto 1 do begin

str[i+1] := str[i];

end;

str[1] := s;

delete(str, length(str), 1);

writeln(str);

End.

жду лучший ответ

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.