срочно решить до сегоднешнего 10 вечера срочно1. С клавиатуры вводят строку и слово. Составьте программу, которая:а) определяет
срочно решить до сегоднешнего 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); <span>end.
</span>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); <span>end.
</span>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); <span>end. </span> 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); <span>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); <span>end. </span> Program four_b; uses crt; var s1,s2,s3:string; p,k,i,l,m:integer; begin s1:='<span>Беларусь ты моя синеокая</span>'; 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); <span>end. </span> 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); <span>end. </span> 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); <span>end. </span> 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.