Пользователь вводит текст, программа должна подсчитать в нём
число символов
число строк
число слов
число цифр
Считать словом любую последовательность непробельных символов, разделённую пробельными символами.
число символов
число строк
число слов
число цифр
Считать словом любую последовательность непробельных символов, разделённую пробельными символами.
Answers & Comments
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, но должно работать =)