Question

Помогите составить программы по информатике(извиняюсь, что задания на белорусском языке), паскаль abc

Answer 1

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.

Answer 2

Огромное спасибо)