88

Турбо паскаль: Вводится строка и символ

seomotiv 18 февраля 2023

Турбо паскаль: Вводится строка и символ. Определить количествослов, содержащих введенный символ.

категория: информатика

52

Uses crt; a: string; s: char; i,z: integer; beginreadln (a,s); for i: =1 to length (a) do beginif a[i]=s then inc (z); end; writeln (z); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

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