В строке символов определить количество букв «Р», входящих в нее - 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.