Прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2

Question

Информатика

Авдокея

21 марта, 05:22

Прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2

+1

Ответы (1)

Знаете ответ?

Нинака · Answer 1

Var a, s:real;

f1, f2:text;

begin

assign (f1,'f1. txt') ;

reset (f1) ;

assign (f2,'f2. txt') ;

rewrite (f2) ;

s:=1;

while not eof (f1) do

begin

read (f1, a) ;

s:=s*a;

end;

write (f2, s) ;

close (f1) ;

close (f2) ;

end.