Другие вопросы по теме Информатика
Semen123486
22.07.2019 20:10
Mariya197819
22.07.2019 20:10
bbayy
04.05.2019 13:21
BLASTER11111
04.05.2019 13:16
andriymoskalet
04.05.2019 15:06
ВераПончик
23.12.2020 12:36
ekaterinatrushkova
23.12.2020 12:36
azizka4
28.05.2019 10:10
lНанамиТянl
28.05.2019 10:10
Популярные вопросы
- Найдите область определения функции: y = x/(5x-6)...
3 - После прямоугольной формы не имеет площадь 48 а его ширина 150 м...
1 - Как читается это слово? haltestelle хочу научится читать...
2 - Для пошива костюма купили 3 метра 50 сантиметров ткани двух видов...
2 - :3 найти корни уравнения и построить график))...
2 - Напишите мини сочинение по про 4 углов (острого, тупого, прямого...
2 - Реши с уравнения для изготовления новогодних костюмов купили красную...
2 - Напиши сочинение по картине друзья е.широкова токо не из интернета...
3 - Записать слова в два столбика: с разделительным мягким знаком и...
1 - Языка нет, а правду скажет. без языка, без голоса, а все расскажет....
2
uses Math;
var x, y : integer;
begin
readln(x);
if x < -2 then
y := abs(x) + 2
else if (x >= -2) and (x <= 2) then
y := 1
else if x > 2 then
y := x + 1;
writeln(y);
end.