Задан текст, содержащий скобки. поменять местами первое и последнее слово заключенное в скобки. (не использовать pos)

108

404

Посмотреть ответы 2

Ответы на вопрос:

Варюша221204

Информатика

4,6(25 оценок)

Как-то даже не хочется размышлять, как можно было это решить по- 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.

otvet12313434

Информатика

4,6(28 оценок)

Визуальная- (которую мы можем видеть) звуковая- (можем слышать) вкусовая- ( ну тут и так понятно) механическая,- (чувствуем телом, осязаем) запаховая- (чувствуем запах)