В строке символов определить количество букв «Р», входящих в нее - Free Pascal
Формулировка задачи:
В строке символов определить количество букв «Р», входящих в нее.
Заранее благодарен, очень рад тому, что на этом форуме много приятных в общении, и отзывчивых людей
Решение задачи: «В строке символов определить количество букв «Р», входящих в нее»
textual
Листинг программы
var S: string; a,i : integer; begin Write('Введите строку: '); Readln(S); a:=0; for i:=1 to Length(S) do begin if s[i]='a' then A := A + 1; end; writeln(a); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д