Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
cstslp0ahrl
01.10.2021 20:27 •
Информатика
Функция, которая возвращает среднюю длину слов текста даны произвольные текстовые файлы. , .
Ответ:
лика20042
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 оценок)
Популярные вопросы: Информатика
revkova5a
08.09.2022 10:26
Задача J. Счастливое завершение Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мебибайт Решением...
workout7774
25.05.2020 01:55
Информатика,vvar k,m: integerdat: array() of integerbegindat(1): =12dat(2): =17dat(3): =17dat(4): =15dat(5): =14dat(6): = 12dat(7): =10dat(8): =13dat(9): =14dat(10): =15m: =0for k:...
поганаямолодешь
10.05.2020 18:45
Построить график функции в excel...
olyarogova
20.01.2021 01:39
впорядкований набір деякого типу називають- зарание...
romatkachuk19
15.01.2021 05:46
Запишите несколько раз подряд число 2013 так что бы получившейся число делилось на 9. поясните ответ. нужно буду...
Tashkentskiy
15.01.2021 05:46
2.вводятся две четвертные оценки по и языку. выведите на экран надпись «молодец! », если их сумма больше или равна 9, иначе надпись — «подтянись! »....
foma2280
28.01.2023 13:19
Субъектом заражения венерическим заболеванием может быть лицо достигшее 16-летнего возраста...
Чебуреккшнщншшшш
28.01.2023 13:19
Убийство - это причинение смерти другому человеку, совершенное с прямым или косвенным умыслом...
rit2239
28.01.2023 13:19
Обязательным признаком состава преступления, предусмотренного ч.1 ст.138 Уголовного кодекса Российской Федерации...
baryshevskayaam
28.01.2023 13:19
К тяжким последствиям в соответствии с ч.1 ст.111 Уголовного кодекса Российской Федерации относятся потеря слуха...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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