Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
glushkovanastya
07.12.2021 05:58 •
Информатика
Дано целое число. если оно положительное то +1, иначе не менять заданное число. информатика
Показать ответ
Ответ:
Атлант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
17.11.2020 19:04
Що таке модифікація формул? Коли вона відбувається? За якими правилами здійснюється?...
dfhjkgftg357
30.12.2021 23:19
Решите задачи в двоичной системе счисления: На берегу моря лежало 102 камешков. Набежавшая волна выбросила еще несколько. Их стало 10002. Сколько камешков было выброшено волной?...
denian11343
29.10.2022 01:36
Число 17 перевести в десятичный код ....
guzhowa66
16.12.2021 11:51
с информатика! Очень На языке С++. ...
sofaTV
28.03.2023 20:31
Match the opposite gender. सही जोड़ी मिलाएं। A B (i) kingson(ii) manqueen(iii) henwife(iv) husbandcock(v) daughterwomanhgc ...
helpmepls1234566
12.05.2022 22:24
Родственными системами счисления называют системы, у которых основания являются степенями одного и того же числа. Найдите такие родственные x, y и z, что выполняется равенство...
аришка232
18.02.2020 16:14
Подскажите как правильно решить. Дано натуральное n 0. Найти произведение первых n простых чисел. Подсказка: используйте булевскую функцию для проверки, является число простым...
Avakado01
07.03.2020 18:46
. написал программу в free pascal, после нажатия run не открывается консоль. программа закрывается, несмотря на readln(). как это исправить?...
nbibyf2005
17.04.2022 11:47
Какое поле диалогового окна «Цвет фона» редактора КompoZer необходимо заполнить для задания цвета фона страницы в виде шестнадцатеричного кода? Например, #F3B9C6. ответ введите...
MissDiana1111
28.05.2020 11:35
Выберите поле в диалоговом окне «Свойства страницы» редактора KompoZer, которое необходимо заполнить для отображения имени вкладки, выделенной на скриншоте красным прямоугольником?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
if n>0 then begin inc(n); writeln(n);end
else writeln(n);
end.