Регистрация
ааа512
18.06.2022 18:19
Информатика
Есть ответ 👍

СОР ИНФОРМАТИКА В ОНЛАЙН МЕКТЕП! "ПРОГРАМИРОВАНИЕ РЕШЕНИЙ". Соотнесите программу и его результат выполнения. ​

274
317
Посмотреть ответы 1

Ответы на вопрос:

VeronikaShubin
VeronikaShubin
4,7(81 оценок)
  var    s : string;     l,i,k,a : integer;     begin  readln (s);       l : = length(s);   k : = 0;   a : = 0;         for i : = 1 to l do    begin      if (s[i]=' ') or (i=l) then      begin        if a = 2 then            k : = k +1;         a : = 0      end      else      if s[i] ='a' then        a : = a +1;   end;     writeln(k);   end.

Популярно: Информатика