Задание:
Срооччноо! С клавиатуры вводят слово и символ. Составте программу которая: подсчитывает количество вхождений заданногосимвола!
Решение:
Uses crt; var s: string; c: char; i,k: integer; beginreadln (s); readln (c); for i: =1 to length (s) doif s[i]=c then inc (k); writeln (k); end.
Знаете другой ответ?