1. Информатика
  2. Дано целое число. Если

Дано целое число. Если оно является положительным, то прибавить к нему 3; в противном случае вычесть из него 2. Вывести полученное число. УМОЛЯЮЮЮ ЛЮДИИИ

BarTGamE777 BarTGamE777    3   05.02.2021 01:02    1

Ответы
anzoroglyan1 anzoroglyan1  05.02.2021 01:10

var x: integer;

begin

 Write('Ведите целое число: '); ReadLn(x);

 if x >= 0 then x := x + 3 else x := x - 2;

 WriteLn('x = ', x);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nikaaazhh Nikaaazhh  23.02.2021 11:27
Определите результат выполнения программы, при x=0, a=-8...
Андрейхоттабыч Андрейхоттабыч  23.02.2021 11:27
1) Какие операционные системы вы знаете? 2) Каким образом запустить программу на выполнение? 3) Зачем нужна операционная система? 4) Приведите пример трёх прикладных программ и их...
аспквпнн аспквпнн  23.02.2021 11:26
Добрый день Заполните пробелы и создайте элемент video: controls src= video.ogg type= video/ogg/...
pozhidaevad pozhidaevad  01.11.2020 03:26
Напишите наибольшее целое число x, для которого истинно высказывание: (X чётное) И НЕ (X = 7)....
Mider123 Mider123  01.11.2020 05:52
1. Постройте таблицы истинности для следующих логических выражений: A˄B˅C b) ¬A˅(B˄C) 2. Для какого из указанных значений числа Х истинно выражение (X 2))? а)X=1, b) X=2, c) X=3,...
витльд витльд  01.11.2020 06:32
решить 2 задачи, Они ПРИКРЕПЛЕНЫ...
kivonen3p08qoq kivonen3p08qoq  04.05.2020 10:35
Какая команда будет выполнена после следующих действий?1. Нажми на вкладку Файл, затем нажми на Создать. 2. Нажми на Новая презентация, а затем на кнопку Создать.1)Запись презентации2)Открыть...
Katya1143 Katya1143  17.08.2019 18:40
Даны n натуральных чисел .определить и вывести количество членов последовательности кратных 3 и не кратных 5...
NasVest NasVest  07.04.2021 09:56
Ребят всем привет , у меня такое задание. Посчитать количество чётных чисел масива . Размер та адрес массива задаётся с портов . У меня если что ассемблер i8080))...
haikyuu24 haikyuu24  19.03.2019 16:39
Прямоугольник со сторонами 1 см и 11см вращается около прямой, находящейся на расстоянии 2см от большей стороны. вычислить объем полученного тела вращения....

Популярные вопросы