Ответы на вопрос:
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
Популярно: Информатика
-
iiiin23.12.2020 02:08
-
Морфология1101.01.2023 19:29
-
janelens11.01.2020 22:04
-
sentyakovv27.03.2022 19:17
-
Alexsandar13.03.2020 23:55
-
олеся1411120.06.2022 05:11
-
Аноним911114.05.2022 01:26
-
Alimmmmm22.09.2020 11:45
-
simsnothave17.04.2023 17:25
-
Merto22.10.2021 12:08