Напишите программу на pascalabc - дано слово. переставьте - вопрос №9933130 от dpravdivaya 10.10.2022 21:48

Question

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

dpravdivaya · Answer

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.

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