Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ольга2104
28.05.2023 08:46 •
Информатика
Функция, которая возвращает среднюю длину слов текста даны произвольные текстовые файлы. , .
Ответ:
leron9999
08.10.2020 08:38
PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!
function AvgLen(fn:string):real;
begin
if FileExists(fn) then
Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
else
Result:=0
end;
begin
Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.
Примеры
Имя файла: input.txt
5.42
Имя файла: Pushkin2.txt
5.20
Имя файла: Pascal.txt
7.02
0,0
(0 оценок)
Популярные вопросы: Информатика
luuba2007
27.07.2022 18:36
Дан фрагмент кода программы. Какое целое положительное число i необходимо принять с клавиатуры, чтобы после завершения работы, программа распечатала число 144958. В ответе...
gladiolys2003
07.04.2023 14:10
Выберите функцию которая не использует условие в аргументе...
GoRussia228
01.02.2023 15:45
Написать алгоритм на тему режим дня...
Юля9887
02.03.2023 06:30
1.Определть истинность выражений(5 8v 3+6 =9 л4 =3)...
sumr212
04.10.2021 05:43
1.Что такое HTML? 2.Из истории развития HTML 3.Основные понятия HTML 4.Основные теги HTML 5.Структура web-страницы...
красотка356
29.01.2020 10:02
укажите основные комплектующие, на которые при покупке будут делать программист и геймер. приведите примеры основного программного обеспечения для программиста и для геймера...
Диханбаев
03.09.2022 11:33
Привидите пример, на сколько групп мы делим информационные каналы...
SKARP17868
04.08.2022 09:03
с информатикой,нужно написать программу в Паскале. «В одномерном массиве A из n элементов найти максимальный среди всех элементов и заменить нулевые элементы на 30.»...
Mariafetisova1
17.07.2022 04:46
с информатикой(Паскаль) «В одномерном массиве A из n элементов найти максимальное значение max среди элементов, меньших 5, и минимальное значение среди всех элементов...
gerasimooffq
10.03.2021 02:05
Задача 10. Переведіть число 25(8) у шістнадцяткову систему числення (спочатку треба перевести число у десяткову, а тоді - у шістнадцяткову). Відповідь: о...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
function AvgLen(fn:string):real;
begin
if FileExists(fn) then
Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
else
Result:=0
end;
begin
Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.
Примеры
Имя файла: input.txt
5.42
Имя файла: Pushkin2.txt
5.20
Имя файла: Pascal.txt
7.02