Строковые

[Маруська]

помогите, пжалста...
---
Дана строка. Подсчитать, сколько в ней букв АБВ.
---
Понимаю, что элементарно, но сдаю госы..всего 98 задач, думать больше не могу

[Gongled]

Примитивненько.

program pr;
uses CRT;
var
i, a, b, v : integer;
s : string;

begin
clrscr;

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

a := 0;
b := 0;
v := 0;

for i:=1 to length(s) do
begin
    if s[i]='А' then inc(a);
    if s[i]='Б' then inc(b);
    if s[i]='В' then inc(v);
end;

writeln('Букв А в строке: ',a);
writeln('Букв Б в строке: ',b);
writeln('Букв В в строке: ',v);

end.

[sheka]

используй: функция Pos(что встречается, в какой строке)-позиция данного елемента и
процедура Delete(из какой строки, с какой позиции, какую длину).

[Маруська]

спасибо большое, теперь все будет хорошо..надеюсь ...