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

Question

Информатика

Спиридон

11 июля, 07:38

Прочитайте из файла 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.