Центром розвитку класичного напряму в європейському музичному мистецтві був А.Париж
Б.Відень
В.Прага
280
424
Ответы на вопрос:
USES Crt;
VAR
X: INTEGER; S, K, P: INTEGER; I: BYTE;
Begin
P:=1; S:=0; K:=0;
FOR I:=1 TO 10 DO Begin
WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x);
IF X>0 Then P:=P*X; { произведение положительных }
IF X<0 Then Begin
S:=S+X; { сумма отрицательных }
K:=K+1; { количество отрицательных }
End;
End;
WriteLn(‘ Произведение положительных значений = ‘,p);
WriteLn(‘ Сумма отрицательных значений = ‘,s);
WriteLn(‘ Количество отрицательных значений = ‘,k);
END.
VAR
X: INTEGER; S, K, P: INTEGER; I: BYTE;
Begin
P:=1; S:=0; K:=0;
FOR I:=1 TO 10 DO Begin
WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x);
IF X>0 Then P:=P*X; { произведение положительных }
IF X<0 Then Begin
S:=S+X; { сумма отрицательных }
K:=K+1; { количество отрицательных }
End;
End;
WriteLn(‘ Произведение положительных значений = ‘,p);
WriteLn(‘ Сумма отрицательных значений = ‘,s);
WriteLn(‘ Количество отрицательных значений = ‘,k);
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Ищу девушку в11 лет сатпаеве или же шымкент красивую номер +77472009199...
rishanaHD14.08.2022 07:51 -
КЛАСС СОР ПО АНГЛИЙСКОМУ...
Znoke9909.08.2020 14:59 -
И с этим я забыла добавить его...
araydaribayaray24.12.2021 05:39 -
1)Зачем соблюдать правила поведения в бассейне? 2)Какие какие спортивные...
попаоп23.03.2020 02:46 -
Контролюючі органи за результатами проведеної податкової перевірки...
yana22100203.06.2020 08:02 -
Визначення ,,езопова мова,, заруб,байки,6кл...
silchuk200404.05.2021 05:22 -
Докажите что издержки на производство продукции являются одним из...
dashasmirnova8518.02.2021 06:56 -
Розібрати слова за будовою: вiдпрошений...
supervitalik1512.01.2021 08:07 -
Напишитепочему в народных сказках всегда побеждает добро, а не зло,...
noname363603.06.2022 16:30 -
Обстоятельства прихода к власти наполеона 4-5 обстоятельств...
Dushanbe200319.12.2020 00:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.