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

manonako1 manonako1    1   14.06.2019 08:10    0

Ответы
AlenaRayskaya AlenaRayskaya  10.07.2020 23:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика