Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Radled
15.01.2020 12:09 •
Информатика
Дано целое число. если оно положительное то +1, иначе не менять заданное число. информатика
Показать ответ
Ответ:
дазайосамо31
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 оценок)
Популярные вопросы: Информатика
mikc2
22.11.2021 09:46
Справа вверху в квадрате - задание, всё остальное - условие...
Mashylina
07.08.2022 03:16
Назовите примерно абстрактной трехмерной модели. Где в жизни мы можем встретить трехмерные изображения? Какой принцип печати физического объекта лежит в основе 3D печати?...
Doxlaz
15.10.2021 18:39
Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , буквы a на буквы b , буквы b на буквы a и буквы b на буквы a . входные данные входная...
SmartJager
15.10.2021 18:39
Напишите программу, которая выводит первое слово переданной её символьной строки. слово – это последовательность непробельных символов, ограниченная пробелами или концами...
sanya3344
15.10.2021 18:39
Поменять местами i и последнюю цифры числа. символы не использовать. пример: число 125 i=2 ответ: 152 число 1264 i=3 ответ: 1246 pascal abc.net 45 за лучший...
artem877
15.10.2021 18:39
Составте программу определения массива и его порядкового номера значение которого равно заданному пользователю. (мы ещё вот это записывали (а) определение наибольшего...
Жак104
15.10.2021 18:39
Каким явлением из повседневной жизни мы можем применить второй закон ньютона...
Dimn11
10.11.2021 08:46
Рассчитай расстояние между точками с данными координатами. 1. A(−8;1) и B(−5;5); |AB| = 2. M(5;−5) и N(1;−8); |MN| =...
5312макс1245
12.08.2022 04:53
ВЫПОЛНЕНИЕ: 18:34 ТЕКСТ ЗАДАНИЯ АС=МС, угол А равен углу М. Докажите, что ВС=КС...
dgotshalk
12.08.2022 04:53
Человеку повезло, и во время аварии он получил только мелкие царапины и легкие ушибы. Положено ли страховое возмещение, если да, то какое?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
if n>0 then begin inc(n); writeln(n);end
else writeln(n);
end.