Составить программу на языке програмирования паскаль : Подсчитать количество букв "а" в заданном тексте. Заранее благодарю .
Составить программу на языке програмирования паскаль : Подсчитать количество букв "а" в заданном тексте. Заранее благодарю .
Ответ(ы) на вопрос:
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" в заданном тексте
Не нашли ответ?
Похожие вопросы