Сделать в Pascal ABC ,посчитать сколько раз в данной строке встречается символ

1
var
a, b: string;
i, k: integer;

begin
readln(a);
readln(b);
for i := 1 to length(a) do
if a[i] = b then
k := k + 1;
writeln(k);
end.
Комментарий удален
решение готово если оно работает, а не тогда когда его надо исправлять и дописывать

Ответы и объяснения

2014-03-31T20:07:36+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    a: string;
    b: char;
    i, k: integer;

begin
    readln(a);
    readln(b);
    for i := 1 to length(a) do
        if a[i] = b then
            k := k + 1;
    writeln(k);
end.