Var a: string; words, nums, chars, i, sen: integer; begin readln(a); words := 1; For i := 1 to Length(a) do begin If (a[i] = ' ') then inc(words); if (a[i] in ['0'..'9']) then inc(nums); if (a[i] = #13) then inc(sen); if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars); end; writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences'); end.
Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)
Объект (понятие) может иметь множество признаков, однако не все признаки объекта – равноценны. Нужно отличать основные, существенные признаки объекта, которые составляют саму природу этого объекта и без которых мы не можем его представить. Например, существенным признаком ромба будет то, что ромб есть четырехугольник, стороны которого параллельны и равны между собой. Вокруг существенных признаков группируются второстепенные признаки объекта (или понятия), например, тот факт, что сторона ромба будет длиной пять или двенадцать сантиметров, будет второстепенным признаком.
words, nums, chars, i, sen: integer;
begin
readln(a);
words := 1;
For i := 1 to Length(a) do
begin
If (a[i] = ' ') then inc(words);
if (a[i] in ['0'..'9']) then inc(nums);
if (a[i] = #13) then inc(sen);
if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars);
end;
writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences');
end.
Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)