Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
polinaaksd
01.06.2020 17:20 •
Информатика
дан файл f компоненты которого являются действительными числами найти произведение компонентов файла
Показать ответ
Ответ:
wranase
24.07.2020 08:51
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
rishanaHD
17.10.2020 17:53
Втаблице используется условное форматирование. напишите порядок действий, для создания условного форматирования. 1. 2. 3. гистограмма. 4.градиетная заливка....
MilankaMarkova
10.06.2021 11:09
Сколько двоичных разрядов нужно для записи десятичного числа 15 в двоичной системе счисления?...
сархан2007
22.03.2022 08:21
ответьте 1. на какие риски выражаются человек во время поиска материалов в интернете? 2. почему надо защищать свои данные в интернете? 3. как сохранить изображение которое...
976Марина1111111111
02.03.2022 05:20
Изучи список примитивов, расположенных на сцене, и определи количество конусов....
BigZnaniaFiziki
01.11.2020 08:55
Скільки елементів може бути вказано ліворуч від символу := в операторі присвоєння? А) один б) два в) скільки завгодно только сегодня...
ERKO20
13.01.2022 10:55
Для хранения растрового изображения размером 164×164 пикселей отвели 16 КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
darusascop1415
06.03.2023 14:18
На сканере с максимальной разрешающей и глубиной цвета 24 бита отсканировали фотографию размером 3 на 4 дюйма. Определите размер полученного файла, если сканировали с...
sakinaxalilova2
15.02.2021 03:23
Сканируется цветное изображение размером 38,1×38,1 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 8 бита. Какой информационный объём будет иметь полученный графический...
Tittans16
17.02.2021 10:06
Во входном файле есть набор слов. Программа должна вывести уникальные слова (без учета регистра). К примеру: Содержание во входном файле: ложка чай Ложка багаж лоЖка;...
Pomawkal
18.04.2022 07:22
Дано целое число N ( 1). Найти наименьшее целое число K, при котором выполняется неравенство 3K N. В коде C#...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.