Составить программу на языке програмирования паскаль : Подсчитать количество букв "а" в заданном тексте.       Заранее благодарю .

Составить программу на языке програмирования паскаль : Подсчитать количество букв "а" в заданном тексте.       Заранее благодарю .
Гость
Ответ(ы) на вопрос:
Гость
uses crt; var x:string[200]; i,k:integer; begin clrscr; readln(x); k:=0; for i:=1 to length(x) do if copy(x,i,1)='f' then k:=k+1; writeln('Chislo bukv f= ',k); readln; end. Считает количество букв "f" в заданном тексте
Не нашли ответ?
Ответить на вопрос
Похожие вопросы