Question

Составить программу для решения следующей задачи: Дана последовательность символов,концом которой является точка.Подсчитать,сколько в этой последовательности букв а. Pascal.Срочно плиз помогите!!!

Answer 1

program test;
var k,i:integer;s:string;
begin
readln(s);
for i:=1 to (length(s)-1) do // -1 это точка
if s[i]='a' then k:=k+1;
writeln(k);
end.

Answer 2

Решение задачи подсчёта букв "а" в последовательности

Для решения данной задачи можно написать программу на языке Pascal, которая будет считать количество букв "а" в заданной последовательности символов, пока не встретится точка, обозначающая конец последовательности.

program CountLetterA;
var
  ch: char;
  countA: integer;
begin
  countA := 0;
  repeat
    read(ch);
    if ch = 'a' then
      countA := countA + 1;
  until ch = '.';
  writeln('Number of "a" in the sequence: ', countA);
end.

Эта программа будет считывать символы до тех пор, пока не встретится точка, и подсчитывать количество букв "a" в последовательности. После этого она выведет результат на экран.

Пример работы программы

Предположим, у нас есть последовательность символов "abracadabra.", тогда программа выведет: ``` Number of "a" in the sequence: 5 ```

Таким образом, программа правильно подсчитала количество букв "a" в данной последовательности.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.