Информатика. Написать БЛОК-СХЕМУ и программу (паскаль)
Даю 50б

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. пример: введите строку: с клавиатуры вводится строка. заменить в ней все пробелы на восклицательные знаки. с! клавиатуры! вводится! строка.! заменить! в! ней! все! пробелы! на! восклицательные! знаки.!