Составте программу на языке программирования паскаль: подсчитать количество букв ''а'' в заданном тексте

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

 

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.

 

скорее всего так

ответ:

объяснение:

утверждение мистера фокса может быть и истинным и ложным. чтобы точно узнать какое оно может быть достаточно перевернуть одну карточку.перевернули одну любую карточку,видим несоответствие-мистер фокс лжёт,если карточка соответствует истине переворачиваем любую вторую карточку,если видим несоответствие-мистер фокс лжёт,если карточка истинна то делаем вывод,что мистер фокс пока не солгал.

итак процедура идет до проверки всех четырех карточек.все 4 карточки соответствуют утверждению,то мистер фокс не лжёт,в противном случае утверждение мистера фокса не истинно.

вот

var m:integer;

   t:string;

begin

 readln(m);

 case m of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: begin

     writeln('Где вы желаете провести отпуск?');

     readln(t);

     writeln('Июль вы проведете ',t);

   end;

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 else

   writeln('Введено некорректное число');

 end;

end.