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

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

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

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

+1
Ответы (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) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать из программы процедуру pascal Program kokokoko; uses crt; var fr, frn, s1:string; i:integer; begin clrscr; writeln ('Vvedite frazu:') ; readln (fr) ; fr:=fr+' '; While Pos (' ', fr) >0 do Begin s1:=Copy (fr, 1, Pos (' ', fr) - 1) ;
Ответы (1)
Program mm; var o, oo, v, n, n1, q1, r1, y1:string; l, x, b, z, y, r, q:integer; begin v:='вычислить '; read (n) ; n1:=n; q:=pos (' + or - ', n) ; q1:=copy (n, 1, q-1) ; val (q1, x, r) ; Delete (n, 1, q) ; r:=pos (' - or + ', n) ;
Ответы (1)
Даны 2 числа в двоичном виде. В первом числе поменять местами старшую и младшую части числа. Во втором - 1-ый и 4-ый разряды поменять местами с 3-м и 7-мым разрядами соответственно. Результаты логически сложить и умножить на 4.
Ответы (1)
Антон сортирует по возрастанию список из 10 элементов: 6 12 3 4 9 2 10 11 7 5 Ему разрешается поменять местами любые два элемента, но за такой обмен ему придется отдать количество конфет, равное разности позиций обмениваемых элементов (позиции
Ответы (1)
Имеется некоторая последовательность символов. Образовать новую последовательность, включив в нее символы исходной, кроме запятых. (использовать склейку "+") (не использовать pos, delete, copy ...)
Ответы (1)