В файле input.txt находится произвольное количество чисел, записанных в каждой новой строке. Требуется найти сумму всех чисел и записать ее в файл output.txt
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад