Задать вопрос
17 июля, 09:22

Задан текст, содержащий скобки. Поменять

местами первое и последнее слово заключенное в скобки. (не

использовать pos)

+4
Ответы (1)
  1. 17 июля, 13:14
    0
    Как-то даже не хочется размышлять, как можно было это решить по-нормальному ...

    var s:string; a:array[1 ... 4] of byte; i:integer;

    begin

    read (s) ;

    for i:=1 to length (s) do

    begin if s[i]=' (' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length (s) downto 1 do

    begin if s[i]=') ' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy (s, 1, a[1]) + copy (s, a[3]+1, a[4]-a[3]-1) + copy (s, a[2], a[3]-a[2]+1) + copy (s, a[1]+1, a[2]-a[1]-1) + copy (s, a[4], length (s) - a[4]+1) ;

    write (s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задан текст, содержащий скобки. Поменять местами первое и последнее слово заключенное в скобки. (не использовать pos) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы