Пользователь вводит текст, программа должна подсчитать в нём
5-9 класс
|
число символов
число строк
число слов
число цифр
Считать словом любую последовательность непробельных символов, разделённую пробельными символами.
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, но должно работать =)
Другие вопросы из категории
ропоьи папа ооииссмама. мама. папа. мама ..оьчвюлар поецоурьаобврьврлврдугдврьилцдцпжнцлылфылрльуьукдддллооороорраууплдчапеннньтоыдурдндндпьпоеонлонте
Читайте также
ввода, если информационный объем полученного текста равен 1 Кбайт?
Команды для компьютера
Неправильно заданный логарифм
Список приказов
Последовательность каких-либо действий
Набор команд, приводящих к достижению поставленной цели
Какой из документов является алгоритмом?
Правила техники безопасности
Рецепт приготовления торта
Список книг в библиотеке
Расписание движения поездов
Режим дня школьника
Детализация алгоритма предполагает:
Доведение действий до завершения
Получение ожидаемого ответа
Разбиение действий на более мелкие
Детальное рассмотрение условия задачи
Подробную постановку задачи
Алгоритмизация – это:
Разбор постановки задачи
Скучная тема в курсе информатики
Процесс составления алгоритма
Ввод текста программы
Оптимизация заданного алгоритма
Блок-схема позволяет:
Получить ответ
Разбить задачу на блоки
Определить вид алгоритма
Описать исходные данные
Наглядно изобразить последовательность шагов
если буква «а» встречается чаще, чем буква «в», и напечатать false