Задание:
Составить программу на языке програмирования паскаль: Подсчитать количество букв «а» в заданном тексте. Заранееблагодарю.
Решение:
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" в заданном тексте
Знаете другой ответ?