Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Podruvnik
30.03.2022 19:40 •
Информатика
Дано целое число. если оно является положительным, то вывести 1; если отрицательное, то вывести -1, если 0, то вывести 0.)
Показать ответ
Ответ:
Jason19
04.10.2020 11:33
Var n:integer;beginreadln(n);if n>0 then writeln(1);if n<0 then writeln(-1);if n=0 then writeln(0);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
moskvarodina345
23.09.2022 00:45
найти 5 ошибок 1 var 2 s : integer; 3 procedure pr; 4 var a, b, r :integer; 5 begin 6 write( введите стороны прямоугольника a, b: ); 7 readln(a, b); 8 r := a * b; 9 writeln(...
dianaknyazeva
27.11.2020 12:52
Дано 2 символьні матриці. Знайти № рядків, що містять найбільшу кількість цифр. Паскаль . До ть !...
сердянечок
27.11.2020 12:52
Дан целочисленный двумерный массив, размерности n х m. Поменять местами первый и последний элементы.На...
vseznaika29
27.11.2020 12:52
Количество в Microsoft Access это поле, которое содержит? 1. Перекрестная ссылка 2. количество записей в таблице 3. заголовки полей 4. определить свойства объектов базы...
АлинаКовтун
01.12.2020 18:57
Требуется описать массив А из 10 целочисленных элементов. Каждый элемент — случайное целое число от 0 до 100. Из предложенных вариантов выберите правильные варианты описания...
Texero
01.12.2020 18:57
Информатика Информатика Информатика >...
ilyaderkach98
20.06.2022 12:12
Самостоятельная работа 1) Определите, что будет напечатано в результате работы следующего фрагмента программы. 1) s := 50; for i := 5 to 11 do s := s - 3; write (s); 2)...
vikkkki1
14.07.2022 21:42
Определите значение переменной а после выполнения алгоритма....
vladekan
11.07.2021 09:37
РЕШЕНИЯ ТОЖЕ НУЖНЫ, 1. Определите значение переменной S после выполнения фрагмента программы: i:=2; S:=2; while i 11 do begin i:= i + 3; S:= S + 2 * i; end; 2. Запишите...
Саламандра1111
07.03.2021 17:44
Найдите разрядность шины адреса ,если объём адресуемой памяти равен 256 бит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота