Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). найти количество слов, которые содержат хотя бы одну букву «а».

Pascal   var    s : string;     k,i,l : integer;     p : boolean;   begin  readln (s);   l : = length(s);   p : = true;     for i : = 1 to l do    begin      if (s[i] = 'а') and (p) then      begin        k : = k +1;         p : = false;       end;       if s[i] = ' ' then      p : = true;     end;   writeln (k);   end.

всего цветов: 7цветов

значит 7*3=21

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

       

 

при включении комп. ос загружается в оп раньше остальных программ