Ребят кто знает помогите
В pascal ABC
программа которая во введенном слове подсчитывала бы число букв 'а' и заменяла их буквами 'б'

1

Ответы и объяснения

2013-12-18T18:51:44+04:00
{вот правильное решение я там забыл то чтобы подсчитывать число букв a}
var               s: string;       
   i
, id, len, max, count,q: byte;

  begin    
q:=0;
      readln(s);
   
      len
:= length(s);
  
       max
:= 0;
  
       id
:= 0;

         count := 0;  
        for i:=1 to len do
      
           if s[i] <> ' ' then
                          count := count + 1                 
else begin
                
          if count > max then begin
                                  
max
:= count;
                                 
  id
:= i - count;
        
                  end;
        
                  count
:= 0
   
              end;
     
      if count > max then begin
              
max
:= count;
             
    id
:= i - count;
      
   end;                    
  
           for i:=id to id+max do     
             if s[i] = 'a' then  begin
   q:=q+1;                     s[i] := 'b';     
       writeln(s,' ' ,  q);

end;
end.