Question

Турбо Паскаль. Написать программу, которая считает количество буквы в строке. Допустим букву "а" в любом регистре, строка вводится с клавиатуры.
входной файл: предложение
выходной файл: количество буквы

Answer 1

uses Crt;

const

 n=100; { мах длина строки }

 

var

 s:string[n];

 i,k:integer;

begin

 ClrScr;

 Readln(s);

 k:=0;

 for i:=1 to Length(s) do

   if (s[i]='а') or (s[i]='А') then Inc(k);

 Writeln(k);

 ReadKey

end.