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

Есть ответ
18.12.2022
188

Ответ


uses crt;var x:string[200];i,k:integer;beginclrscr;readln(x);k:=0;for i:=1 to length(x) doif copy(x,i,1)='f' then k:=k+1;writeln('Chislo bukv f= ',k);readln;end.Считает количество букв "f" в заданном тексте


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.