Написать программу,которая подсчитывает,сколько раз среди символов заданной строки встречается буква "К" - Turbo Pascal

Формулировка задачи:

Написать программу,которая подсчитывает,сколько раз среди символов заданной строки встречается буква "К"

Код к задаче: «Написать программу,которая подсчитывает,сколько раз среди символов заданной строки встречается буква "К" - Turbo Pascal»

textual
k:=0;
for i:=1 to Length(St) if St[i] in ['K','k','К','к'] then Inc(k);
Writeln(k);

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы