Напишите программу на PascalABC - дано слово. Переставьте его последнюю букву на место первой. Подразумевается при этом, что все последующие буквы будут сдвинуты вправо на одну позицию.
Вводится строка, состоящая из одного слова (последовательность строчных латинских букв без пробелов) длиной не более 150 символов.
Ответы
Ответ дал:
0
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.
жду лучший ответ
Ответ дал:
0
хотя
Ответ дал:
0
ща сделаю
Ответ дал:
0
а стоп, фигню сморозил, да уж
Ответ дал:
0
я не знаю чем думал
Ответ дал:
0
var
slovo:string;
bukwa:char;
i:integer;
begin
readln(slovo);
bukwa := slovo[length(slovo)];
for i := length(slovo)-1 downto 1 do
slovo[i+1] := slovo[i];
slovo[1] := bukwa;
writeln(slovo);
end.
slovo:string;
bukwa:char;
i:integer;
begin
readln(slovo);
bukwa := slovo[length(slovo)];
for i := length(slovo)-1 downto 1 do
slovo[i+1] := slovo[i];
slovo[1] := bukwa;
writeln(slovo);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад