Решить до сегоднешнего 10 вечера 1. с клавиатуры вводят строку и слово. составьте программу, которая: а) определяет позицию заданного слова; б) удаляет заданное слово; в) вставляет в строку заданное слово. 2. составьте программу, которая: а) к строке «край озер» добавляет слова «лесов и рек»; б) в строке «я учу сь в школе» заменяет слова «в школе» на «в 10-м классе». 3. составьте программу, которая переставляет на первое место: а) в строке «моя родина беларусь» слово «беларусь»; б) в строке «люблю цябе, мой родны кут» слова «мой родны кут». 4. составьте программу, которая меняет местами первое и последнее слово: а) в строке «минск столица беларуси»; б) в строке «беларусь ты моя синеокая». 5. с клавиатуры вводят строку. составьте программу, которая: а) заменяет все пробелы в строке символом подчеркивания; б) подсчитывает количество букв в строке (исключая пробелы и цифры); в) подсчитывает количество прописных букв. это паскаль из интернета +что б !

Program one_a; uses crt; var s1,s2: string;     p,a: integer; begin       readln(s1);       readln(s2);       p: =pos(s2,s1);       if p=0 then writeln('no')       else writeln('pos: ',p); end.program one_b; uses crt; var s1,s2: string;     p,a: integer; begin       readln(s1);       readln(s2);       p: =pos(s2,s1);       if p=0 then writeln('no')       else       begin       a: =length(s2);       delete(s1,p,a);       writeln(s1);       end; end. program one_c; uses crt; var s1,s2: string;     p: integer; begin       readln(s1);       readln(s2);       s2: =' '+s2+' ';       readln(p);       insert(s2,s1,p);       writeln(s1); end.program two_a; uses crt; var s1,s2,s3: string; begin       s1: ='край озер  ';       writeln(s1);       s2: ='лесов и рек';       writeln(s2);       insert(s2,s1,length(s1)+1);       writeln(s1); end. program two_b; uses crt; var s1,s2,s3: string;     p,a: integer; begin       s1: ='я учусь в школе';       writeln(s1);       s2: ='в школе';       s3: ='в 10-м классе';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       insert(s3,s1,p+1);       writeln(s1); end. program three_a; uses crt; var s1,s2: string;     p,a: integer; begin       s1: ='моя родина беларусь';       writeln(s1);       s2: ='беларусь';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       s1: =s2+' '+s1;       writeln(s1); end.program three_b; uses crt; var s1,s2: string;     p,a: integer; begin       s1: ='люблю цябе, мой родны кут';       writeln(s1);       s2: ='мой родны кут';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       delete(s1,length(s2)-2,2);       s1: =s2+','+s1;       writeln(s1); end. program four_a; uses crt; var s1,s2,s3: string;     p,k,i,l,m: integer; begin       s1: ='минск столица беларуси';       writeln(s1);       k: =0;       for i: =1 to length(s1) do           if copy(s1,i,1)=' ' then           begin               inc(k);               l: =i;           end;       p: =pos(' ',s1);       s2: =copy(s1,1,p-1);       s3: =copy(s1,l+1,length(s1)-l+1);       k: =length(s2);       m: =length(s3);       delete(s1,1,k);       delete(s1,l-p+2,m);       s1: =s3+s1+s2;       writeln(s1); end. program four_b; uses crt; var s1,s2,s3: string;     p,k,i,l,m: integer; begin       s1: =' беларусь ты моя синеокая';       writeln(s1);       k: =0;       for i: =1 to length(s1) do           if copy(s1,i,1)=' ' then           begin               inc(k);               l: =i;           end;       p: =pos(' ',s1);       s2: =copy(s1,1,p-1);       s3: =copy(s1,l+1,length(s1)-l+1);       k: =length(s2);       m: =length(s3);       delete(s1,1,k);       delete(s1,l-p+2,m);       s1: =s3+s1+s2;       writeln(s1); end. program five_a; uses crt; var s1: string;     x: integer; begin       readln(s1);       for x: =1 to length(s1) do           if copy(s1,x,1)=' ' then           begin               delete(s1,x,1);               insert('_',s1,x);           end;       writeln(s1); end. program five_b; uses crt; var s1: string;     s2: char;     x,y: integer; begin       readln(s1);       y: =0;       for x: =1 to length(s1) do           begin               s2: =s1[x];               if (s2< > ' ') and ((ord(s2)< 48) or (ord(s2)> 57)) then inc(y);           end;       writeln(y); end. program five_c; uses crt; var s1: string;     s2: char;     x,y: integer; begin       readln(s1);       y: =0;       for x: =1 to length(s1) do           begin               s2: =s1[x];               if (ord(s2)< =90) and (ord(s2)> =65) then inc(y);               if (ord(s2)> =192) and (ord(s2)< =223) then inc(y);           end;       writeln(y); end.

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов