Найти количество слов, начинающихся с буквы F

@Денис Дядюра · Регистрация: 18.05.2015

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

Дана строка содержащая английский текст. Найти количество слов, начинающихся с буквы F. (Сделайте или функцией, или процедурой). Заранее спасибо

@ZX Spectrum-128 · 26.05.2015, 08:48

Изначально: (С) КонецСвета

Pascal

uses
  crt;
const
  pr: set of char=[' ','(',',','.',';',':','-'];
var
  s: string;
 
function kol(s:string):integer;
var
  i,k: byte;
begin
  k:=0;
  if (s[1]='F') then
    inc(k);
  for i:=2 to length(s) do
    if (s[i]='F') and (s[i-1] in pr) then
      inc(k);
  kol:=k;
end;
 
begin
  write('s='); readln(s);
  writeln('Слов на F: ',kol(s));
  readln;
end.

@Денис Дядюра 0 / 0 / 0 Регистрация: 18.05.2015 Сообщений: 48
		1
	Найти количество слов, начинающихся с буквы F 26.05.2015, 07:46. Показов 1734. Ответов 1 Метки нет (Все метки) Дана строка содержащая английский текст. Найти количество слов, начинающихся с буквы F. (Сделайте или функцией, или процедурой). Заранее спасибо 0

	26.05.2015, 08:48

Найти количество слов, начинающихся с буквы F

Решение