Написать программу на языке PASCAL, которая в массиве размером 30 со случайными числами ищет нечетные числа и выводит на экран их кол-во
292
294
Ответы на вопрос:
Ответ давал уже когда- отклика не дождался, видимо. оно так надо было. function knight(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin if abs(x2 - x1) = 2 then knight : = (abs(y2 - y1) = 1) else if abs(x2 - x1) = 1 then knight : = (abs(y2 - y1) = 2) else knight : = false end; function queen(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin queen : = (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1)) end; var xk, yk, xq, yq: integer; begin write('укажите через пробел координаты коня [1..8]: '); readln(xk, yk); write('укажите через пробел координаты ферзя [1..8]: '); readln(xq, yq); if knight(xk, yk, xq, yq) then writeln('конь бьет ферзя') else if queen(xq, yq, xk, yk) then writeln('ферзь бьет коня') else writeln('фигуры не угрожают друг другу') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Marry88812.05.2021 18:31
-
Dariy6918.01.2022 06:02
-
ilyxa2423.12.2021 15:16
-
vovadavydov5622.03.2022 08:59
-
evgeniaberezka15.01.2020 06:01
-
ulyana78325.09.2021 16:35
-
gulzat211011.09.2020 03:40
-
Engishmaster24.02.2023 04:28
-
Barbara12345620.01.2023 06:57
-
lerakendrick27.07.2021 20:35
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.