SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
function CountWords(S, Sb: string): integer;
var
CountW, I: integer;
begin
for i := 1 to Length(S) do
S[i] := UpCase(S[i]);
for i := 1 to Length(SB) do
SB[i] := UpCase(SB[i]);
CountW := 0;
while True do
begin
I := Pos(Sb, S);
if I = 0 then
Break;
Inc(CountW);
Delete(S, I, Length(Sb));
end;
CountWords := CountW;
end;
var
S: string;
begin
Write('Введите строку: ');
Readln(S);
Writeln('Кол-во слов PASCAL: ', CountWords(S, 'pascal'));
end.
|
|
