В строке поменять местами первое и последнее слова

@lect111 · Регистрация: 07.11.2012

Студворк — интернет-сервис помощи студентам

Задание 2
В строке, содержащей не менее двух слов, разделенных пробелом, поменять местами первое и последнее слова.

Входные данные:
abcde fghik lmnop qrst uxyz

Выходные данные:
uxyz fghik lmnop qrst abcde

Заранее спасибо

@КонецСвета · 07.11.2012, 14:29

Pascal

uses crt;
var s,s1,s2: string;
    i: byte;
begin
write('s='); readln(s);
s1:=''; s2:='';
while (s[1]<>' ') do
      begin
      s1:=s1+s[1];
      delete(s,1,1);
      end;
i:=length(s);
while s[i]<>' ' do
      begin
      s2:=s[i]+s2;
      delete(s,i,1);
      dec(i);
      end;
s:=s2+s+s1;
writeln('s=',s);
readln;
end.

@CodeR · 07.11.2012, 15:30

Pascal

Var s,s1,s2:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    s2:='';
    For i:=Length(s) downto 1 do
     if s[i]<>' ' then s2:=s[i]+s2
      else break;
    Delete(s,i,Length(s2));
    s:=s2+' '+s+' '+s1;
    writeln('Полученная строка = ',s);
    readln;
End.

@lect111 · 07.11.2012, 15:51 **[ТС]**

Большое спасибо. При много благодарен.

Комментарий модератора

Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

В строке поменять местами первое и последнее слова

Решение

Решение

@lect111 1 / 1 / 0 Регистрация: 07.11.2012 Сообщений: 47
		1
	В строке поменять местами первое и последнее слова 07.11.2012, 10:57. Показов 16556. Ответов 3 Метки нет (Все метки) Задание 2 В строке, содержащей не менее двух слов, разделенных пробелом, поменять местами первое и последнее слова. Входные данные: abcde fghik lmnop qrst uxyz Выходные данные: uxyz fghik lmnop qrst abcde Заранее спасибо 0

Опции темы