Подсчитать количество слов которые содержат в себе букву, введенную с клавиатуры

@zanuuda · Регистрация: 27.03.2012

Author24 — интернет-сервис помощи студентам

Дан текст. Подсчитать количество слов которые содержат в себе букву, введенную с клавиатуры.Задачу сделать с помощью функции.

@КонецСвета · 17.04.2012, 00:49

Pascal

uses crt;
var s,sl: string;
    c: char;
    i: byte;
 
function KolS (ss: string; cc: char): byte;
var sl: string;
    i,k: byte;
begin
s:=s+' '; sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if pos(c,sl)<>0 then inc(k);
          sl:='';
          end;
KolS:=k;
end;
 
begin
write('Строка: '); readln(s);
write('Символ: '); readln(c);
write('Количество "',c,'" в строке ',KolS (s,c));
end.

@zanuuda 0 / 0 / 0 Регистрация: 27.03.2012 Сообщений: 7
		1
	Подсчитать количество слов которые содержат в себе букву, введенную с клавиатуры 16.04.2012, 21:40. Показов 1444. Ответов 1 Метки нет (Все метки) Дан текст. Подсчитать количество слов которые содержат в себе букву, введенную с клавиатуры.Задачу сделать с помощью функции. 0

	17.04.2012, 00:49

Подсчитать количество слов которые содержат в себе букву, введенную с клавиатуры

Решение