Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
thedesxte
22.12.2021 23:53 •
Информатика
Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если y=1, если х≥1. y=0 если -1
Показать ответ
Ответ:
annamoz2004
19.07.2020 21:47
Var
y, x : integer;
begin
readln(x);
if x >= 1 then
y := 1
else if (x > -1) and (x < 1) then
y := 0
else if x < 0 then
y := -1;
writeln(y);
end
0,0
(0 оценок)
Популярные вопросы: Информатика
TATARNH7
07.07.2022 04:33
Какое из условий описывает область, лежащую внутри верхней половины круга радиуса 1 с центром в начале координат варианты ответов: (x*x+y*y =1) and (y 0) (x*x+y*y...
лилия253
07.07.2022 04:33
Укажите максимальное значение типа byte *127 *255 *65535 *32767...
Summer2006
30.11.2022 02:34
Вычислите значение выражения : 20div 6 + 20 mod 6...
annashiklo
23.11.2020 16:32
Рассчитайте обьем графического изображения размером 16 32 пикселя и палитрой из 16 цветов...
KOTEНОКGAB
01.12.2021 23:01
По горизонтали 1. Некоторый предмет *Мой ответ2. Упрощенное представление реального объекта, процесса или явления. *Мой ответ3. наложение на модели рисунков (текстур). *9...
7Kamilla
22.07.2020 19:35
1. Постройте таблицы истинности для логических выражений: а) A & B ∨ ¬ A & B б) (A ∨ B) & (¬ A ∨ B) Раздел 3. 1. Составить линейный алгоритм для примера...
акл2
26.05.2020 14:59
2. Заполните таблицу библиотек PyGame....
Дианочка140
16.02.2020 16:19
По горизонтали 1. Некоторый предмет *Мой ответ2. Упрощенное представление реального объекта, процесса или явления. *Мой ответ3. наложение на модели рисунков (текстур). *...
sobitlogin
19.12.2021 21:26
Записать программу на языке Паскаль и определить вывод в результате работы программы при числах: 1,5; -10,3; -8; 6; 4; 0....
Matvei337
19.07.2021 16:34
Завтра экзамен, ничего не знаю:(...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
y, x : integer;
begin
readln(x);
if x >= 1 then
y := 1
else if (x > -1) and (x < 1) then
y := 0
else if x < 0 then
y := -1;
writeln(y);
end