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

293

417

Посмотреть ответы 2

Ответы на вопрос:

pnzarKarina

Информатика

4,8(74 оценок)

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" в заданном тексте