program prog;
 
const
  DELIM = [',', '.', ':', ';', '?', '!', ' '];
  LETTERS = ['a'..'z', 'A'..'Z'];
 
 
var
  s: string;
  i: integer;
  wordsCnt, lettersCnt: integer;
begin
  Write('input string: ');
  ReadLn(s);
 
  i:= 1;
  wordsCnt:= 0;
  lettersCnt:= 0;
 
  while i <= Length(s) do begin
    if not (s[i] in DELIM) then begin
      Inc(wordsCnt);
      repeat
        if s[i] in LETTERS then Inc(lettersCnt);
        Inc(i);
      until (i > Length(s)) or (s[i] in DELIM);
    end
    else Inc(i);
  end;
 
  WriteLn('words: ', wordsCnt);
  WriteLn('letters: ', lettersCnt);
  ReadLn;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.05.2011, 10:27

Ответы с готовыми решениями:

Блок-схема
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2; e:=0.000000001;...

блок-схема
Привет, нужно сделать блок-схему для программы: uses crt; const t=10; var b:array of integer;...

Блок-схема
помогите юному социологу составить,пожалуйста блок-схему для задачи: Program treugolnik; Var...

Блок-схема
Помогите составить блок схему к программе. program zad7; uses crt; Const n=3; Var A:array of...

	23.05.2011, 10:27

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.05.2011, 10:27

Помогаю со студенческими работами здесь

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; ...

блок-схема
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer;...

Блок-схема
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr; writeln('Ââåñòè ñòðîêó:...

Блок-схема
Помогите, пожалуйста!) Мне нужна блок схема по массиву, а именно отсортированый массив, только в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх