Информатика, опубликовано 2018-08-22 18:21:16 by Гость

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

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

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.