файлы

[Каролина18]

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

[p51x]

И чо? Что от нас вы хотите?

[Каролина18]

Помогите решить, завтра пересдача!
Я попробовала сама, но не получилось!

var f:text;
c,s:real;
begin
assign(f,'in.txt')
reset(f);
s:=0;
while not eof(f) do
begin
read(f,c);
s:=s+c*c;
end;
writeln(s);
close(f);
readln;
end.

[Каролина18]

Спасибо, уже ваша помощь не нужна!!! сама справилась!

[Stilet]

сама справилась!

И это похвально

[Istrafiloff]

Вот так и должно быть)