Question

скласти на мові pascal програму обчислення кількості букв (a) в заданому рядку символів

Answer 1

var

 str: string;

 Symbol_count: integer;

 i: integer;

begin

 readln(str);

 for i := 1 to length(str) do  

   case str[i] of

     'а': inc(Symbol_count);

     'a': inc(Symbol_count);  

   end;

 writeln('Символов а: ', Symbol_count);

end.