Решить до сегоднешнего 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.

Самолеты ид int откуда куда время отлета time врем прилета time международный bool школы ид int номер int название наименьший класс int наибольший класс int адрес тип (гимназия, int так как ид из другой таблицы типов школ страны ид int название оргинальное название сталица флаг blob гимн площадь float население bigint первичный ключ всегда ид все не указанные типы поля стринг или варчар