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