Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

PASCAL ПРОШУ
Дан файл F компоненты которого являются действительными числами найти произведение компонентов файла

Ответ оставил Гость

Var
  f :Text;
  x, mult: real;

begin
  mult := 1;
  assign(f, F);
  reset(f);
  while not Eof(f) do
  begin
    readln(f, x);
    mult := mult * x;
  end;
  Close(f);
  writeln(mult);
end.