Есть ответ 👍

Информатика, 9 класс
50 баллов

196
241
Посмотреть ответы 1

Ответы на вопрос:

Fvbygbb
4,4(36 оценок)

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.

Популярно: Информатика