Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Dobro118
09.06.2019 09:50 •
Информатика
Дан текстовый файл, содержащий целые числа. найти количество чисел в файле и их сумму.
Показать ответ
Ответ:
надечка2005
08.07.2020 07:51
Var
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27
0,0
(0 оценок)
Популярные вопросы: Информатика
Kardeyv
26.07.2019 02:20
Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. получившийся файл был передан в город а по каналу связи за 88 секунд. затем тот...
irinamazda
26.07.2019 02:20
128-цветной рисунок содержит 120 байт информации. из скольких точек он состоит...
nat17akan
26.07.2019 02:20
Напишите программы в ! 37. программа запрашивает два числа и выводит их в порядке возрастания. затем меньшее число заменяет удвоенным произведением введенных чисел, а большее...
djein2007
26.07.2019 02:20
Для фотографий , или высококачественных цветных рисунков, которые будут размещаться на web-страницах или переводиться по электронной почте. при сохранении в этом формате...
ЕваЛя
26.07.2019 02:20
:определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 24; s : = 0; while n = 28 do begin s : = s + 20; n :...
НЕВЕСОМАЯ67
26.07.2019 02:20
Впаскале. развивая предельную скорость своего движения жираф пробегает за x1 секунду y1 метров. заяц пробегает за x2 секунд y2 метров. найдите скорость животных и сравните...
dancecowerbts
26.07.2019 02:20
Впаскале. если точка с координатами (x,y) лежит в первой четверти, то найти расстояние от этой точки до начала координат, иначе вывести сообщение точка не лежит в первой...
lalaland5
26.07.2019 02:20
Впаскале. определите, лежит ли на осях координат точка (x,y). точка лежит на осях координат, когда абсцисса, или ордината точки равна нулю. в программе вывести сообщение...
Этоясказал
26.07.2019 02:20
Дано целое число. определить кратно ли оно 5...
Star3111
26.07.2019 02:20
Что такое мешки букв которых одинаковые...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27