Ответы на вопрос:
Program n; var a: integer; beginwrite ('введите целое число: '); readln(a); if a = 0 then writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение}else if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение}writeln ('один')else if a = 2 then writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение}else writeln ('неизвестное число'); {иначе число незивестное}readlnend.
Var a: real; k,m,p: string; begin writeln('введите число'); readln(a); if a< 0 then k: ='отрицательное' else k: =' положительное'; if a=int(a) then m: =' целое' else m: ='не целое'; if a/2=int(a/2) then p: =' чётное' else p: =' нечётное '; writeln('число ',a,' - ',k,' ; ',m,' ; ',p); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lol104006.08.2022 02:54
-
anna752417.06.2022 18:12
-
arisha7005.07.2021 07:52
-
pud030314.07.2022 11:23
-
ппам01.01.2022 11:52
-
Сацуки00115.04.2023 04:52
-
KEK2281337148804.03.2020 12:17
-
axmet223.11.2020 12:41
-
БекБека29.09.2020 08:11
-
Малефисента111111111.05.2021 18:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.