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

Благодарю, да, явно не одна строка, но именно к такому я привыкла

Ну вот видите, Вас приучили "к плохому" )))

Вместо того, чтобы писать ЧТО НУЖНО СДЕЛАТЬ, Вас вынуждают описывать КАК ЭТО СДЕЛАТЬ.

Но главное - Вы намного больше тратите времени писанину кода и отладку программы а шанс сделать ошибки намного выше. И пока Вы пишите одну программу, Ваши соседи успевают написать три. Или пять.

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.