Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sergejkochetko
21.10.2020 13:39 •
Информатика
Дан текстовый файл, содержащий целые числа. найти количество чисел в файле и их сумму.
Показать ответ
Ответ:
dva4evskaja201p08ub4
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 оценок)
Популярные вопросы: Информатика
stacymacalister
23.05.2020 15:15
Какова информационная емкость 4-х байтов...
орпна
11.09.2022 22:58
ответьте хотяб на часть вопросов, буду за любой ответ на любой вопрос. 1. чем отличаются понятия рекомендация и стандарт? 2. из каких соображений должно выбираться число...
цыувкаерн
09.12.2020 15:43
Вывести на экран все согласные буквы строки в алфавитном порядке. в паскале...
SallyKromsali3
24.05.2022 08:45
Найдите допустимые значения переменной для заданной дроби.а) [tex] \frac{5x}{x + 3} [/tex]б)[tex] \ \frac{y + 8}{ {y}^{2} - 16 } [/tex] ...
alenashumaher
22.07.2020 08:38
Экватор – условная линия пересечения земной поверхности плоскостью, проходящей через центр земли и перпендикулярной к оси вращения нашей планеты. длина экватора составляет...
yopof195Pro
13.10.2020 17:01
Сочинение рассуждение каким должен быть настоящий друг только не с интернета (на 7 класс) около 300-400 слов...
lycena
13.02.2023 07:12
Стретьим по каз.яз3. сөздерді аударып, сөз тіркесін құраболашақ, береке, жастар, іргетас, табыс, мәңгілік ел, меншікті, тілек, ғарышкер, үміткер, жерлес, денсаулық, шағып...
wertuos1234
13.01.2023 20:43
Радиусы 3 см және 4 см болатын шеңберлер центрінің арақашықтығы 5 см. бұл шеңберлердің ортақ нүктелері бар ма? ...
CrazyBublic02
31.12.2022 12:24
Сделать эти слова: шыгару, сурет салу, ан айты-жектеу. в единственном и во множественном числе, все слова!...
ShadowFlcus
25.05.2020 03:34
Напишите сочинение по каз. литре на тему тәкен әлімқұлов қараой по плану: ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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