Дана последовательность из n вещественных чисел. переменной t присвоить значение true, если в последовательности нет нулевых элементов. написать программу для pascal abc и блок-схему. студенческий уровень.
194
219
Ответы на вопрос:
Var n, i: integer; x: array [1..1000] of real; t: boolean; begin readln(n); i : = 0; t : = true; repeat i : = i + 1; readln(x[i]); if x[i] < 0.001 then t : = false; until (x[i] < 0.001) or (i = n); writeln(t) end.
1. белые грибы = x лисички = 10 + x подберёзовики = (x+(10+x))*2 всего: x+(10+x)+((x+(10+x))*2) 2. var x: real; begin writeln('введите кол-во белых грибов'); readln(x); writeln('всего: ',x+(10+x)+((x+(10+x))*2)); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Erzhan03006.01.2020 00:51
-
Krank0909.10.2020 00:12
-
zukara9530.11.2022 17:35
-
anastoanovic09.11.2020 04:35
-
Pon4ik6622.05.2023 07:15
-
KristinaLando01.01.2020 03:50
-
iiiin22.10.2021 01:16
-
умненькийкотенок07.03.2020 08:23
-
tany1982117.01.2022 17:33
-
MashaKun03.11.2022 17:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.