Помогите решить задачу, срочно надо Опции

[r_rock]

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

[Tan]

решалось, используй поиск.

[sonic]

Смотри личные сообщения

[ramzes]

смотри личку

Сообщение отредактировано: ramzes - 19.05.2007 23:14

[Tan]

Не стыдно за такое деньги брать ? r_rock если не найдёшь похожее, обращайся, помогу бесплатно.

[MAXXX]

Естественно, нельзя за такое брать деньги!
Вот примерный код:

Код

Var r,d:Real;
begin
Assign(input,'{имя файла}');
Reset(input);
r:=0;
While not eof do
begin
Read(d);
r:=r+d;
end;
Close(input);
Writeln(r);
end.

[мисс_граффити]

При чем здесь "Стыдно"?
Есть правила форума.
Объявление. Читать всем.

sonic, я предупреждала. Еще раз подобное - отправишься в премод. Тем более что Tan конкретно написал: решалось.
ramzes, то же самое. предупреждение номер раз.

[sonic]

sonic, я предупреждала. Еще раз подобное - отправишься в премод. Тем более что Tan конкретно написал: решалось.

Публично извиняюсь, я не знал что подобное задание уже решалсь на форуме,а тогда, когда я начал писать в тему, сообщения Tan'a ещё не было