Pascal прошу дан файл f компоненты которого являются действительными числами найти произведение компонентов файла
300
500
Ответы на вопрос:
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.
var
a: array [1..5] of integer;
i, p: integer;
begin
writeln ('массив: ');
p : = 1;
randomize;
for i : = 1 to 5 do begin
a [i] : = random (10);
writeln (i, ': ', a [i]);
if i mod 2 = 0 then
p : = p * a [i];
end;
writeln ('произведение четных элементов = ', p);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
BeautifulGirl00120.11.2021 19:33
-
JelliTD19.03.2022 11:29
-
Какашка5432110.10.2020 23:34
-
Макс0079621.09.2021 17:55
-
FOXyashka200527.10.2020 09:29
-
yestarday2306.11.2021 11:22
-
SMokKK15.03.2023 07:08
-
tanysha2901.03.2020 04:46
-
Macsum20412.10.2021 06:58
-
nastya0904217.06.2022 21:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.