3:var s:string;
i:byte;
begin
writeln('Введите текст');
read(s);
while (pos('при',s)<>0) do
begin
i:=pos('при',s);
delete(s,i,3);
insert('про',s,i);
end;
write(s)
end.
1:
var s:array[1..1000] of char;
x:string;
n,i,g,b:integer;
c,c1:char;
begin
writeln('Введите слова, разделенные пробелом, окочание ввода Enter:');
n:=0;
repeat
read(c);
if c<>#13 then
begin
n:=n+1;
s[n]:=c;
end;
until c=#13;
writeln;
for i:=1 to n do
if s[i]=' 'then x:=x+' '
else x:=x+s[i];
for g:=1 to length(x) do
begin
if x[g] in ['a'..'z'] then x[g]:=Upcase(x[g]);
end;
writeln('Текст с большими латинскими буквами:');
writeln(x);
writeln('Латинские буквы в алфавитном порядке:');
for c1:='A' to 'Z' do
for b:=1 to length(x) do
if (x[b]=c1)then write(x[b]);
readln
end.
6:
% сам посчитаешь. Программа считает сколько раз каждая буква встречается в строке
var
s,s1: string;
i,k,b:integer;
a:array[1..32] of string;
begin
a[1]:='а'; a[2]:='б'; a[3]:='в'; a[4]:='г'; a[5]:='д'; a[6]:='е'; a[7]:='ё'; a[8]:='ж';
a[9]:='з'; a[10]:='и'; a[11]:='й'; a[12]:='к'; a[13]:='л'; a[14]:='м'; a[15]:='н';a [16]:='о';
a[17]:='п'; a[18]:='р'; a[19]:='с'; a[20]:='т'; a[21]:='у'; a[22]:='ф'; a[23]:='х'; a[24]:='ч';
a[25]:='ш'; a[26]:='щ'; a[27]:='ъ'; a[28]:='ы'; a[29]:='ь'; a[30]:='э'; a[31]:='ю'; a[32]:='я';
writeln('Введите строку: ');
readln(s);
for i:=1 to 32 do
begin
b:=0;
for k:=1 to length(s) do
begin
if(s[k] = a[i]) then Inc(b);
end;
s1:=a[i] + '=' + b;
writeln(s1);
end;
end.