Подсчет заданного символа в тексте

Категория: Delphi/Pascal
2011-09-10 17:32:50

Пользователь вводит с клавиатуры текст (набор символов), после чего ему предлагается подсчитать сколько раз встречается в данном тексте символ S. S вводится с клавиатуры.

code: #pascal
Uses Crt; 
Var
tekst: String[30]; 
n,i: Integer; 
s: String;   
Begin
 Writeln('Введите текст:'); 
 Readln(tekst); 
 Write('Введите символ для подсчета: '); 
 Readln(s); 
 n:=0; 
 For i:=1 To Length(tekst) Do
 If tekst[i]=s Then n:=n+1; 
 Write('В тексте символ ',s,' встречается ',n,' раз(а)'); 
 Repeat Until KeyPressed 
End.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, работа со строками, строки, подсчёт, символ, текст