logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
glushkovanastya
glushkovanastya
07.12.2021 05:58 •  Информатика

Дано целое число. если оно положительное то +1, иначе не менять заданное число. информатика

Показать ответ
Ответ:
Атлант21
Атлант21
08.10.2020 05:00
Var n:integer;

begin
readln(n);
if n>0 then begin inc(n);  writeln(n);end
else writeln(n);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
KittyClab
KittyClab
17.11.2020 19:04
Що таке модифікація формул? Коли вона відбувається? За якими правилами здійснюється?​...
dfhjkgftg357
dfhjkgftg357
30.12.2021 23:19
Решите задачи в двоичной системе счисления: На берегу моря лежало 102 камешков. Набежавшая волна выбросила еще несколько. Их стало 10002. Сколько камешков было выброшено волной?​...
steshagoncharov
steshagoncharov
24.01.2022 03:42
подготовить ответ к зачету на вопрос Алгоритмическая структура «цикл». Команды повторения. Привести пример. по предмету Информационные технологии...
dashikryb
dashikryb
30.07.2021 02:54
Склавиатуры вводится число n, а затем n чисел. найти произведение отрицательных....
denian11343
denian11343
29.10.2022 01:36
Число 17 перевести в десятичный код .​...
guzhowa66
guzhowa66
16.12.2021 11:51
с информатика! Очень На языке С++. ​...
sofaTV
sofaTV
28.03.2023 20:31
Match the opposite gender. सही जोड़ी मिलाएं। A B (i) kingson(ii) manqueen(iii) henwife(iv) husbandcock(v) daughterwomanhgc ​...
helpmepls1234566
helpmepls1234566
12.05.2022 22:24
Родственными системами счисления называют системы, у которых основания являются степенями одного и того же числа. Найдите такие родственные x, y и z, что выполняется равенство...
аришка232
аришка232
18.02.2020 16:14
Подскажите как правильно решить. Дано натуральное n 0. Найти произведение первых n простых чисел. Подсказка: используйте булевскую функцию для проверки, является число простым...
Avakado01
Avakado01
07.03.2020 18:46
. написал программу в free pascal, после нажатия run не открывается консоль. программа закрывается, несмотря на readln(). как это исправить?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота