PASCAL ПРОШУ Дан файл F компоненты которого являются действительными числами найти произведение компонентов файла
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.
Не нашли ответ?
Похожие вопросы