Вфайле input.txt находится произвольное количество чисел, записанных в каждой новой строке. требуется найти сумму всех чисел и записать ее в файл output.txt
245
419
Ответы на вопрос:
Var f: text; a,s: real; begin s: =0; assign(f,'input.txt'); reset(f); while not eof(f) do begin read(f,a); s: =s+a; end; close(f); assign(f,'output.txt'); rewrite(f); write(f,s); close(f); readln; end.
Популярно: Информатика
-
dashalev251006.02.2022 08:47
-
влад2002ffffffff12.02.2020 18:55
-
NotSmartBoy30.11.2020 19:56
-
хорошист37830.10.2020 20:43
-
Harebin22.07.2020 07:05
-
oolesyoooolesy23.06.2023 04:23
-
ВладВишня17.04.2020 19:22
-
ssmir738113.12.2021 05:15
-
xexi24.05.2020 04:14
-
Alina10496921.11.2021 02:34