Паскаль тема строки 1)с клавиатуры вводится строка, состоящая из трёх слов. слова отделяются друг от друга ровно одним пробелом. поменять местами 2 и 3 слова. 2)с клавиатуры вводится строка, в которой есть одна открывающая и одна закрывающая круглые скобки. вывести на экран символы, заключённые между этими двумя скобками.3)с клавиатуры вводится строка. заменить в ней все пробелы на восклицательные знаки.

1) var s123,s2,s3,s132: string; i: integer; begin writeln('введите строку'); readln(s123); i: =1; while s123[i]< > ' ' do     i: =i+1; i: =i+1; s2: =''; while s123[i]< > ' ' do     begin     s2: =s2+s123[i];     i: =i+1     end; i: =i+1; s3: =''; while i< =length(s123) do     begin     s3: =s3+s123[i];     i: =i+1     end; s132: =''; i: =1; while s123[i]< > ' ' do     begin     s132: =s132+s123[i];     i: =i+1;     end; s132: =s132+' '; i: =1; while i< =length(s3) do     begin     s132: =s132+s3[i];     i: =i+1;     end; s132: =s132+' '; i: =1; while i< =length(s2) do     begin     s132: =s132+s2[i];     i: =i+1;     end; writeln(s132) end. пример: введите строку 123 456 789 123 789 456 2) var s: string; i: integer; begin write('введите строку: '); readln(s); i: =1; while s[i]< > '(' do i: =i+1; i: =i+1; while s[i]< > ')' do     begin     write(s[i]);     i: =i+1     end; end. пример: введите строку: 6543654(000)65431 000 3) var s: string; i: integer; begin write('введите строку: '); readln(s); for i: = 1 to length(s) do       if s[i] = ' ' then s[i]: ='! '; writeln(s) end. пример: введите строку: с клавиатуры вводится строка. заменить в ней все пробелы на восклицательные знаки. с! клавиатуры! вводится! строка.! заменить! в! ней! все! пробелы! на! восклицательные! знаки.!

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.