Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите решить пожалуйста. Зарание огромное спасибо
Написать программу, подсчитывающую количество символов "в" вводимой с клавиатуры строки произвольной длины.

Ответ оставил Гость

Program kol_v;
var
s: string;
n,i: integer;
begin
writeln (Введите исходную строку );
readln (s);
n:=0;
for i:=1 to length(s) do
case s[i] of
в: inc(n);
end;
writeln (В строке ,n, букв в);
end.