Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
MariaWans07
05.05.2020 05:24 •
Информатика
Введите с клавиатуры число ввести сообщение положительное если число больше 0 или отрицательное если число меньше нуля
Показать ответ
Ответ:
WallBox
06.10.2020 22:16
Program z123;var a:integer;beginreadln(a); //Считываем числоIf a>0 then //Проверка writeln('Число положительное') //Вывод если положительное else writeln('Число отрицательное'); //Вывод если отрицательноеend.
0,0
(0 оценок)
Популярные вопросы: Информатика
Александр8584
15.11.2021 04:21
разобраться, не могу решить. С информатикой на вы ......
newyorker2000
18.11.2021 02:18
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(1) = 5 F(n) = 4 · F(n–1) - F(n–1) · n + 4· n, при n 1 Чему равно значение...
maloyzolotov
12.07.2022 16:14
построить таблицу истинности ...
fariza34
03.10.2021 17:17
Add-AppxPackage : Сбой развертывания с HRESULT: 0x80073CF9, Сбой установки. Обратитесь к поставщику программного обеспе чения. (Исключение из HRESULT: 0x80073CF9) Запрос на...
Kazybek2005
20.01.2023 01:20
Числовые данные-это информация закодирования с...
Эльнуи
07.08.2021 12:20
Расположите предложенные виды памяти по убыванию их быстродействия: а) внешняя память б) кэш-память в) озу г) регистры...
romak3104Ромчук
23.03.2020 10:07
1.каким образом вирусы могут попасть на ваш компьютер. Как от этого защититься? 2. Какие ещё угрозы вашей цифровой информации (кроме вирусов) вы можете знать?3. Какую информацию...
danil7531
30.11.2020 21:37
Вычислите: а) 28div6б) 174mod14 в) (1342 div8)mod6...
marinaovechkina
30.11.2020 21:37
Найдите и исправьте все ошибки допущенные в этой программе запишите программы без ошибок. var a; b; c: integer; . begin writeln( видите число a); readln( a). b=5. c: =a / b....
джемре
16.11.2020 14:17
Розташуйте послідовно ери протягом яких відбувався геологічних розвиток земной кори України починаю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота