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

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

Задать свой вопрос
1 ответ
var s: string; i: integer; k: integer; begin write( Введите строчку ); readln( s ); k:= 0; for i:=1 to length(s) do begin if s[i] = в then k:= k+1; end; writeln( k ); end. Вводимая строчка сохраняется в переменной "s". В переменной "k" хранится счетчик количества знаков "в" в введенной строке. Перед подсчетом присваиваем переменной "k" значение "0". В цикле сопоставляем все знаки введенной строчки "s" с эмблемой "в" и если они одинаковы, наращивает счетчик "k".
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт