Предмет: Информатика,
автор: Blinchuk
Напишите программу на PascalABC - дано слово. Переставьте его последнюю букву на место первой. Подразумевается при этом, что все последующие буквы будут сдвинуты вправо на одну позицию.
Вводится строка, состоящая из одного слова (последовательность строчных латинских букв без пробелов) длиной не более 150 символов.
HackerXX:
можно просто вывести последнюю и потом всё слово без последней?
Переставьте его последнюю букву на место первой
henomenonp --- phenomenon
без проблем сек
Ответы
Автор ответа:
2
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.
жду лучший ответ
можно удалить две строки программы без потери работоспособности:
str := str + '0';
и
delete(str, length(str), 1);
str := str + '0';
и
delete(str, length(str), 1);
если ты удалишь делет тогда останется последняя буква, а если первую тогда вообще не запустится
хотя
ща сделаю
а стоп, фигню сморозил, да уж
я не знаю чем думал
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.
Интересные вопросы
Предмет: Математика,
автор: snv888828
Предмет: Биология,
автор: nastyadnb
Предмет: География,
автор: leno4kapups11
Предмет: Обществознание,
автор: Камбит
Предмет: Математика,
автор: eynulla