Вопрос по информатике:
Прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2
- 03.03.2015 03:45
- Информатика
- remove_red_eye 13898
- thumb_up 47
Ответы и объяснения 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.
- 04.03.2015 03:25
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.