Question

Хелп срочно!
Создать программу, в среде PascalABC, которая будет брать числа из файла "input.txt", суммировать их, и помещать в файл "output.txt".(количество чисел заранее не известно).
Вот наработка, исправьте где надо, там какая-то ошибка¯_(ツ)_/¯
var x, S, q: longint; t:text;

begin

assign(t,'input.txt');

reset(t);

S:=0;

while not Eof(t) do

begin

read(t,x);

S:=S+x;

end;

close(t);

assign (t,'output.txt');

rewrite(t);

write(t,'Вот сумма числел из файла input.txt: ', x);

close(t);

End.

Answer 1

var x, S: longint; t:text;

begin

assign(t,'input.txt');

reset(t);

S:=0;

while not Eof(t) do

begin

read(t,x);

S:=S+x;

end;

close(t);

assign (t,'output.txt');

rewrite(t);

write(t,'Вот сумма числел из файла input.txt: ', S);

close(t);

End.