Подсчет суммы мест, на которых в словах текста стоит заданная буква - Pascal
Формулировка задачи:
Добрый день) Помогите пожалуйста решить такую задачу:
Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква. (это условие задачи) Проще говоря, надо указать будет букву и чтобы выводилось в ответе, сколько раз применялась заданная буква в тексте.
Решение задачи: «Подсчет суммы мест, на которых в словах текста стоит заданная буква»
textual
Листинг программы
var s: string;
c: char;
i, p, k: integer;
begin
writeln('Введите строку:');
readln(s);
write('Введите символ: ');
readln(c);
k := 0;
p := 0;
for i := 1 to length(s) do
if s[i] = ' '
then k := 0
else begin
inc(k);
if s[i] = c then p := p + k
end;
if p > 0
then write('Сумма позиций символа "', c, '" в словах: ', p)
else write('Символ "', c, '" в строке не найден');
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д