паскальОпределить, как нередко встречается определенный символ в строке.вот начало

Паскаль
Найти, как нередко встречается определенный знак в строке.
вот начало программки
var st:string;
burger:char;
i,kol:integer;
begin
write('Введи строку ');
readln(st);
write('Введи знак ');
readln(burger);

окончите плз

Задать свой вопрос
1 ответ

var s: string;

   i, k: integer;

begin

 writeln('Enter string:');

 readln(s);

 k := 0;

//Заместо Y знак(мыслю сможеш прицепить ввод)

 for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);

 write('Quantity of symbol in string is equal to ', k);

 readln

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт