Ответы на вопрос:
// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrreal('введите 4 числа: ',4); if frac(a.sum/(a[3]-a[2]))=0 then writeln('целый результат') else writeln('нецелый результат') end. примеры введите 4 числа: 7.2 1.8 25.5 5.5 целый результат введите 4 числа: 36 18.6 12 5 нецелый результат объяснения: первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными. второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
гретхен117.12.2020 19:10
-
angel107310.03.2021 00:13
-
sadpoli14.10.2021 14:52
-
TomaSharik05.02.2020 22:01
-
daniilkornev0501.01.2020 20:07
-
NotLikeThis18.03.2022 09:43
-
subbotkinaira30.05.2020 03:03
-
Suslik111111.04.2020 08:30
-
ariannaajoseph906.08.2021 02:09
-
Cobachka1602.06.2022 20:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.