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

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

BlackPupils BlackPupils    3   12.06.2019 12:20    0

Ответы
Evastupid Evastupid  09.07.2020 23:34
Var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
VanoK48 VanoK48  09.07.2020 23:34
Var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
waleruwka waleruwka  25.11.2021 06:09
11. Оцените возможности графического редактора Paint. Подхо- дит ли он для обработки сложных изображений, например для ди- зайна, мультфильмов?...
Викуша0402 Викуша0402  25.11.2021 06:09
с задачей в Python. Сделать с генератора псевдослучайных чисел, оператор in, not in. Задача: Проверьте, содержит ли данный список из n чисел, все числа от 1 до n. Список создать...
Nurzhan94 Nurzhan94  25.11.2021 06:09
в школе 16 классов, в каждом классе по 32 ученика, директору школы сказали,что ученик 8б класса Петров Вася выграл бесплатную поездку на мальдивы ,какое количество информации...
fukurochanmiup04xjx fukurochanmiup04xjx  16.04.2020 20:45
Вычислить сумму,где n - заданное число.При проверке N придавать значения не более 10....
Капач Капач  16.04.2020 20:46
4. Сколько различных решений имеет система уравнений:x1 * x2 - x3 * x4 = 1x3 + x4 + x5 * x6 =1во втором уравнении над х3 и х4 черточка сверху ​...
школьник812 школьник812  16.04.2020 20:46
1) Изображение имеет разрешение 10х10 пикселей и глубину цвета 4 бита, какой размер изображения? Всего: 10 х 10 = 100 пикселей. Каждый пиксель кодируется 4 битами Итоговый...
максим1503889900 максим1503889900  11.01.2021 09:59
Значки каких программ показаны на рисунке? Сравните и опишите их особенности​...
Fox125123 Fox125123  11.01.2021 10:00
Дана масса в М килограммах. Используя арифмитические операции, найти количество тон в ней ​...
Nikyyysik Nikyyysik  06.04.2021 12:22
Електронним документом може бути...
julyafluke julyafluke  23.02.2022 17:23
в саду дети сорвали яблоки, Анвара, Дильшод Би Махмуд с яблок. По сколько яблок будет у каждого, если разделить собранные яблоки поровну? Сколько яблок останется? Количество...

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