PASCAL ПРОШУ
Дан файл F компоненты которого являются действительными числами найти произведение компонентов файла
Дан файл F компоненты которого являются действительными числами найти произведение компонентов файла
More Questions From This User See All
Answers & Comments
Verified answer
Varf :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.