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

Оцени полезность:

6 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы