Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bolatzarina
16.01.2020 19:29 •
Информатика
Дано целое число а, если значение а> 0, то необходимо увеличить его на единицу. написать программу для решения этой .
Показать ответ
Ответ:
kerimagaevakk
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 оценок)
Популярные вопросы: Информатика
Денисс2017
19.11.2021 00:45
По информатике! рассчитайте объем видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640 на 350 и палитрой...
tmika78332167
19.11.2021 00:45
Перечислите основные возможности pdf....
полинадудка
14.05.2023 16:47
Нужно логическое выражение и определить тип полученного логического выражения...
Rasul101231
04.03.2023 11:00
А=( ақпарат ,1,18,28) print (а)?А) Ақпарат 1, 18, 28В) АқпаратС) ( ақпарат , 1, 18, 28)Д) 1, 18, 28 быстро...
Qucha
26.09.2021 14:42
:) начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен...
белка263
14.08.2022 13:50
2. Мұғалім оқушыларға 20 таңбадан тұратын мәтінді компьютерде теру тапсырмасын берді. Оқушы мәтінді қуаты 16 таңбадан тұратын алфавитпен терді, ал Болат қуаты 256 таңба...
aidosashimbek200
01.10.2021 06:42
Найти наименьшее значение функции Y=sin(х2+5x)cos(3x2-x) в интервале изменения аргумента x от 0 до 8 с шагом 0.4. Значение функциизаписать в массив А.Примечание: задание...
Kr3sher
04.12.2020 12:10
База данных о торговых операциях состоит из трёх связанных таблиц.....
ostapsheremetaoooo
13.02.2020 05:00
3. Есептеуіш техника буындарында қолданылатын құралды анықтаңыз, сәйкестік орнатыңыз. Есептеуіш техника буындары IV -- DE А. Жартылай өткізгіш — транзисторлар В, Интегралдық...
kostja07
22.04.2020 22:20
Выполни перевод. (В окошко запиши число без пробелов.) ответ: 28FA16=10....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a>0 then inc(a);
writeln(a);
end.