Ответы на вопрос:
Var a: array [1..20] of integer; mult: longint; i: integer; begin randomize; mult : = 1; for i : = 1 to 20 do begin a[i] : = random(20) - 10; if a[i] < 0 then mult : = mult * a[i]; end; for i : = 1 to 20 do write(a[i], ' '); writeln; writeln(mult); end.
как то так:
uses crt;
var x,y: real;
begin
clrscr;
writeln('введите координаты точки');
readln(x,y);
if (abs(y)< =1.5) and (abs(x)< =2) and (abs(x)< =abs(y)) then writeln('да')
else writeln('нет');
readkey;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Renatka9626.09.2020 15:41
-
Z143937321.04.2020 21:30
-
linagalkinaa21.01.2023 10:59
-
Magomedrasul0555508.04.2023 07:21
-
пмпсасрчвчврсв13.03.2020 06:40
-
skutovakseniya200408.09.2022 22:03
-
sts2320.09.2021 05:11
-
Leerok25.12.2022 19:39
-
Кари1514221.10.2022 08:28
-
Foreveralone32116.03.2022 10:35
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.