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

Question

Составить программу, которая считает количество букв "а" в заданном слове (Секретные материалы). В паскаль.

Answer 1

Program p1;
var st1,st:string;
i,c:integer;
begin
writeln('Введите текст');
readln(st);
for i:=1 to length(st) do
begin
st1:=copy(st,i,1);
if st1='а' then c:=c+1;
end;
write('К-во раз: ',c);
end.

Comments

Либо если нужно явно указать текст:

---

program p1;
var st1,st:string;
i,c:integer;
begin
st:='Секретные материалы';
for i:=1 to length(st) do begin
st1:=copy(st,i,1);
if st1='а' then c:=c+1;
end;
write('К-во раз: ',c);

end.

---

Большое спасибо! Очень помогли!)