Question

сколько раз встречается буква "а" во введенной с клавиатуры строки. Составить алгоритмическую программу.​

Answer 1

program raf105;

var

 s:string;

 a,i:integer;

begin

write('Введите строку: ');

readln(s);

s:= lowercase(s);

for i:=1 to length(s) do

 if s[i] = 'а'

   then a+= 1;

writeln('В ведённой строке буква "а" встречается ',a,' раз(а)');

end.

Язык PascalABC