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

Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Вывести полученное число.

Werty0 Werty0    3   16.04.2020 14:57    0

Ответы
LizaShm LizaShm  18.08.2020 07:54

program If3;

var

 N : Integer;

begin

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

 Readln(N);

 if N>0 then N:=n+1;

 if N<0 then N:=n-3;

 if N=0 then N:=17;

 writeln(N);

end.

Объяснение:

Решение Pascal

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
frnkiero1133324 frnkiero1133324  03.08.2021 12:34
Чему будет равно значение переменной t после выполнения следующего фрагмента кода? Pascal: procedure f(a: integer); begin a := a * 2; end; begin t := 10; f(t + 1); write(t); end....
zolotovavichka zolotovavichka  03.08.2021 12:34
Чему будет равно значение переменной t после выполнения следующего фрагмента кода? Pascal: procedure f(a: integer); begin a := a * 2; end; begin t := 10; f(t + 1); write(t); end....
shmiganastya06 shmiganastya06  19.10.2020 06:27
Изучи предложенный сценарий и выбери подходящий спрайт. ΦΘΗДействияУтренний город1. Идет в школу-2 Говорит «Старт!»3. Занимается спортом.Спортивная площадка4 Считает забитые поле.Ночной...
Максим5955 Максим5955  07.12.2020 18:21
Какие различия имеются между графическими редакторами Paint и SketchUp...
Catania2 Catania2  07.12.2020 18:21
ТЕКСТ ЗАДАНИЯ Дана таблица Счет к оплате . Определите формат (тип данных) ячеек А2:A7. 10 A B С D 1 Товар | Количество Цена общая стоимость 2 Сдобные булочки 130 1300 3 Пирожки 130...
sweetk sweetk  30.05.2019 03:10
С! трое друзей спорили, как распределятся места среди трех команд школьного первенства. - первым будет «рассвет» , а «комета» – займет последнее место, -сказал семён. - победителем...
mlyz mlyz  30.05.2019 03:10
Синформатикой 1)в электронной таблице значение формулы =срзнач(a6: c6) равно 0,1. чему равно значение формулы =сумм(a6: d6), если значение ячейки d6 равно (–1)? 1) – 0,7 2) -0,4 3)...
TheSniper TheSniper  30.05.2019 03:20
1. сколько цветов будет содержать палитра, если каждый базовый цвет кодировать двумя битами? 2. какой объем видеопамяти в кбайтах нужен для хранения изображения размером 640х250 пикселей...
nata121114 nata121114  30.05.2019 03:20
Как сформировать из одномерного массива матрицу по 4 элемента в строке? паскаль...
artemivanyk200 artemivanyk200  30.05.2019 03:30
Написать программу которая находит произведение нечетных элементов в одномерном массиве. !...

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