logo
Войти Регистрация Спроси ai-bota


zipla
25.10.2022 10:21

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
vladkaz21004
vladkaz21004
18.04.2021 09:52
1. дан массив с(10). сформируйте из него массивы а и в, предварительно определив его длину, включая в массив а четные положительные элементы, а в массив в – нечетные отрицательные....
Elizabeth1006
Elizabeth1006
18.04.2021 09:52
#include #include main(){ int key; printf( \n нажмите одну из курсорных клавиш: \n ); key = getch(); key = getch(); switch (key){ case 77: printf( стрелка вправо\n );...
statarincev2019
statarincev2019
23.02.2023 00:21
Меню файл некоторого текстового редактора имеет вид, показанный на рисунке. какой пункт надо выбрать , чтобы записать файл под новым (новый),б(сохранить),в(сохранить как),г(открыть)...
elenamatrus777
elenamatrus777
27.09.2020 06:04
Вчем преимущества использования флэш-памяти перед другими внешней памяти? ! всем )...
Слон145
Слон145
27.09.2020 06:04
Составьте программу, которая формирует массив из 15 случайных чисел вдиапазоне от 15 до -15 и: 1) отрицательные числа заменяет наих модули, а неотрицательные возводит...
Rondov
Rondov
27.09.2020 06:04
Пользователь компьютера может вводить в минуту 100 знаков,мощность алфавита используемого в компьютере,равно256.какое количество информации в байтах может ввести пользователь...
yarikser4
yarikser4
27.09.2020 06:04
Написать программу в турбо человеческое заполнить массив из 10 элементов случайными числами в интервалеот-50 до 50 и отсортировать его по убыванию с алгоритма быстрой...
несамаяумная
несамаяумная
21.02.2020 18:58
Метеорологическая станция ведёт наблюдение за температурой воздуха. результатом одного измерения является целое число от -32 до 32 включительно, записываемое при минимально...
мугамбе
мугамбе
05.01.2021 03:29
:в массиве из 100 случайных целых чисел найти максимальный элемент и количество вхождений этого элемента в массив. : реализовать простые операции с матрицами: транспонирование,...
122Даша
122Даша
05.01.2021 03:29
Переведите двоичное число 10100110 в десятичную систему счисления....
Ответ:
MsrDoge123
14.10.2020 13:44

// PascalABC.NET

begin

 var a := ReadInteger;

 if a <= 0 then

   a += 1

 else

   a *= 2;

 Print(a)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота