<em>1)Program Z1;</em>
<em>Var st:string;</em>
<em>i,j,k:integer;</em>
<em>Begin</em>
<em>k:=ord('A');</em>
<em>For i:=1 to 26 do begin</em>
<em>For j:=1 to i do begin</em>
<em>write(chr(k));</em>
<em>end;</em>
<em>k:=k+1;</em>
<em>end;</em>
<em>end.</em>
<em>2)Program Z2;</em>
<em>Var st:string;</em>
<em>i,c,c1:integer;</em>
<em>Begin</em>
<em>Writeln('Введите строку');</em>
<em>Readln(st);</em>
<em>For i:=1 to length(st) do begin</em>
<em>if st[i]='а' then inc(c);</em>
<em>if st[i]='о' then inc(c1);</em>
<em>end;</em>
<em>if c>c1 then writeln('Да')</em>
<em> else writeln('Нет');</em>
<em>end.</em>
<em>3)Program Z3;</em>
<em>Var st,st1,st2,st3:string;</em>
<em>k,n:integer;</em>
<em>Begin</em>
<em>Writeln('Введите строку');</em>
<em>Readln(st);</em>
<em>Writeln('Введите k');</em>
<em>Readln(k);</em>
<em>n:=length(st);</em>
<em>st1:=copy(st,1,k);</em>
<em>st2:=copy(st,n-k+1,k);</em>
<em>st3:=copy(st,k+1,n-2*k);</em>
<em>st:=st2+st3+st1;</em>
<em>Writeln(st);</em>
<em>end.</em>
<em>4)Program Z4;</em>
<em>Var st,st1,st2:string;</em>
<em>n,i:integer;</em>
<em>Begin</em>
<em>Writeln('Введите строку');</em>
<em>Readln(st);</em>
<em>Writeln('Введите букву для удвоения');</em>
<em>Readln(st1);</em>
<em>n:=length(st);</em>
<em>For i:=1 to n do begin;</em>
<em>if st[i]=st1 then st2:=st2+st[i]+st[i]</em>
<em> else st2:=st2+st[i];</em>
<em>end;</em>
<em>Writeln(st2);</em>
<em>end.</em>
<em>5)Program Z5;</em>
<em>Var st,st1:string;</em>
<em>n,i:integer;</em>
<em>Begin</em>
<em>Writeln('Введите строку');</em>
<em>Readln(st);</em>
<em>n:=length(st);</em>
<em>For i:=1 to n do begin</em>
<em>if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и'</em>
<em> else st1:=st1+st[i];</em>
<em>end;</em>
<em>writeln(st1);</em>
<em>end.</em>
<em>6)Program Z6;</em>
<em>Var st,st1:string;</em>
<em>n,i:integer;</em>
<em>Begin</em>
<em>Writeln('Ââåäèòå ñòðîêó');</em>
<em>Readln(st);</em>
<em>n:=length(st);</em>
<em>st:=' '+st+' ';</em>
<em>For i:=1 to n do</em>
<em>if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);</em>
<em>end;</em>
<em>writeln(st);</em>
<em>end.</em>
<em>(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)</em>
<em> </em>