Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gayazhan
15.10.2021 03:28 •
Информатика
Функция, которая возвращает среднюю длину слов текста даны произвольные текстовые файлы. , .
Показать ответ
Ответ:
kermantanja
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 оценок)
Популярные вопросы: Информатика
olgavasileva67
01.09.2022 10:33
, написать простой код! Люди, которые умеют писать код на HTML, можете ! , можете сделать дизайн странички, как на этой фотографии! Не нужно вставлять фотографии!Желательно...
Veronicia
25.05.2021 00:28
Чертёжнику был дан для исполнения следующий алгоритм: Повтори 20 раз Сместиться на вектор (-3, -4) Сместиться на вектор (3, 3) Сместиться на вектор (1, -2) Конец На какую...
irina162002
28.02.2021 15:25
1. дайте определение понятия алгоритм - это...
ЯтвойДругг
08.09.2022 21:28
Информатика сор жауабы керек 6 сынып...
kozltanya2013
23.12.2020 17:17
Какое слово получится если в слове старушка жадина камыши ложка жизнь машина ежи нож этажи первый звук заменить парным звонким...
taidakv
23.12.2020 17:17
Постройте график уравнения: 2x-y=4...
4uma4enko4
10.08.2020 06:49
Что такое грамматическая основа предложения и почему она так называется...
prkf
24.11.2022 03:26
Вырази в одинаковых единицах массы и сравни 7т 450кг 18600кг 32кг 999г 27т 86кг 5т 7ц 51ц 5000кг...
timcherkasov07p02k8v
24.11.2022 03:26
Чем отличается состав плазмы крови от состава первичной мочи&...
artemp20012
24.11.2022 03:26
Написать текст как рыбак ходил на . собрался ловить. перешел. сел. просидел. не клюнула. привязал. стал сидеть и ждать. клюнуло. вытащил. поймал...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
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