Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Мэрия777
23.05.2021 01:02 •
Информатика
Дано целое число а, если значение а> 0, то необходимо увеличить его на единицу. написать программу для решения этой .
Ответ:
Viktoria1289
23.06.2020 19:15
Uses crt;
var a:integer;
begin
readln(a);
if a>0 then inc(a);
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Arinacoco
08.06.2021 05:55
1. Определите значение переменной «a» после выполнения фрагмента программы: a = 5 if a 5: a = 6 2. Определите значение переменной «a» после выполнения фрагмента программы: a =...
mokhovayaarina
19.07.2021 01:56
ОТ ЗА ПРАВИЛЬНЫЙ ОТВЕТ В С# Заполнить одномерный массив размера так, чтобы каждый элемент с четным индексом был равен половине своего номера, а каждый элемент с нечетным индексом...
sparksfiyfdgghffgg
08.05.2023 01:54
зарисуйте в тетрадь блок схема линейного алгоритма Вычислите выражение y=-5*x/2++9 для заданного числа кто буду очень благодарен то завтра будут проверять тетради мне завтра в...
YAGA009
09.01.2020 03:45
Первый язык программирования высокого уровня. Дать развёрнутый ответ!...
Nika5332
30.01.2022 20:02
Тест по информатике Информация и информационные процессы 7 класс 1 Какое из следующих утверждений точнее всего раскрывает смысл понятия информация с обыденной точки зрения? а)...
орхидея26
27.12.2022 15:54
Имеются две матрицы размером n на m заполненные случайными числами от 1 до 10, заполнить и вывести 3 матрицу, каждый элемент которой равен сумме предыдущих (паскаль) можно решение...
001Карина11111
11.05.2023 06:02
1. файл размером 100 кбайт передаётся через некоторое соеди- нение со скоростью 1536 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через...
loric225p0cgrp
26.02.2021 03:41
Сколько единиц в двоичной записи числа 22014 - 4650 - 38?...
Kirakler2000
19.01.2021 15:24
Find the mistakes: take midicine, stick a plaster, stay in home, have on operecion...
qrfeq16
12.08.2020 15:08
Как найти НОК 8/9 и нужно, заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
readln(a);
if a>0 then inc(a);
writeln(a);
end.