Есть ответ 👍

Вфайле input.txt находится произвольное количество чисел, записанных в каждой новой строке. требуется найти сумму всех чисел и записать ее в файл output.txt

245
419
Посмотреть ответы 2

Ответы на вопрос:


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.
гулие
4,6(77 оценок)

E41a (16) = 58394 (10) 12 (16) = 18 (10)

Популярно: Информатика