Посчитать сколько слов, букв и знаков препинания

@Spark_26 · Регистрация: 19.10.2011

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

Нужно посчитать сколько слов, букв и знаков препинания.

@swillrocker · 20.10.2011, 15:29

Pascal

var s:string;
    i,j,k,x:integer;
begin
  writeln('Enter string: ');
  readln(s);
  i:=0;j:=0;k:=0;x:=0;
  if (s[1]>='a') and (s[1]<='z') then
   begin
     inc(j);
     for i:=1 to length(s) do
      begin
        if (s[i]=' ') then inc(j);
        if (s[i]<>' ') and (s[i]<>'.') and (s[i]<>',') then inc(k);
        if (s[i]='.') or (s[i]=',') then inc(x);
      end;
    end;
    writeln('Words: ',j,' Chars: ',k,' Points: ',x);
   readln;
   end.

@Spark_26 · 20.10.2011, 18:55 **[ТС]**

Спасибо большое!!!!!!!!!!!!!!!!!

@Spark_26 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 4
		1
	Посчитать сколько слов, букв и знаков препинания 19.10.2011, 13:45. Показов 1547. Ответов 2 Метки нет (Все метки) Нужно посчитать сколько слов, букв и знаков препинания. 0

@Spark_26 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 4
	20.10.2011, 18:55 [ТС]	3
	Спасибо большое!!!!!!!!!!!!!!!!! 0

Посчитать сколько слов, букв и знаков препинания

Решение