Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
сhevapchichi0
28.04.2022 08:17 •
Информатика
дан файл f компоненты которого являются действительными числами найти произведение компонентов файла
Показать ответ
Ответ:
zena30331
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 оценок)
Популярные вопросы: Информатика
ПолинаПять
02.10.2022 14:12
Напишите программу на языке паскаль: найти все числа в диапазоне от 1 до 100, которые делятся на 5, но не делятся на 10....
Соня2017000
02.10.2022 19:11
Написать программу пользователь вводит число, проверить извлекается ли из этого числа корень...
pups223
13.04.2021 03:09
Составить программу, которая считает среднее арифметическое чисел в интервале от 150 до 340....
ivanovanadusa03
28.06.2020 23:52
Выполните алгоритм с повторением и запишите ответ. 1) Берём число 27;2) Повторяем 4 разаделать3) Увеличиваем полученное число на 6;конец цикла4) Записываем ответ.ответ: тут ответ...
shchetko2006p013vy
12.02.2021 03:15
Классификации процессоров.( В ответе указать существующие классификации процессоров и подробно рассмотреть две из них, в обязательном порядке рассказав, для каких устройств какие...
MilankaMarkova
10.12.2022 17:15
за рік курка з їдає k кг зерна, а гуска на 12 кг більше, ніж курка, а качка на 14 кг більше, ніж гуска. Скільки кг крупи з їли вони разом?...
katyunyagolubmailru
04.04.2021 02:06
написать код на С++ Задание: Дана линейная таблица, состоящая из n элементов. Определить количество членов которые нечетны и отрицательны...
pomxic
16.02.2023 20:56
VBA 2. Зайти в модуль книги и создать процедуру заполнения ячеек рабочего листа с адресом «А1:Е10» случайными двухзначными значениями. 3. Найти среднее арифметическое, среднее...
20kokosik26
17.02.2023 12:28
Заполните пропуски числовыми значениями. Для передачи сообщений используется код, состоящий из 4 символов, вероятности появления которых равны 0,25. Корреляция между символами...
Lovedashuta
18.08.2022 07:14
Задачи на системы счисления. Напишите следующие числа в развёрнутой форме:А) 1195,704810 Б) 111011012 В) 71258 Г) АFDЕ16Даны значения кодов для русских букв из стандартной таблицы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.