Дан файл f компоненты которого являются действительными числами. найти сумму компонент файла f

Question

Информатика

Булах

2 января, 00:47

Дан файл f компоненты которого являются действительными числами. найти сумму компонент файла f

+4

Ответы (1)

Знаете ответ на вопрос?

Оксиния · Answer 1

Var

f: text;

i, sum: real;

begin

sum : = 0;

assign (f,'data. txt') ;

reset (f) ;

repeat

while not eoln (f) do begin

read (f, i) ;

sum : = sum + i;

end;

readln (f) ;

until eof (f) ;

close (f) ;

writeln ('Сумма = ', sum) ;

end.