Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Br0cHk1
26.06.2020 03:20 •
Информатика
1. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. написать программу для решения этой . программа должна иметь дру-жественный интерфейс. протестировать программу для a=5, a=-4, a=0.
Ответ:
2329992ляля
21.08.2020 07:54
Var a:integer;
begin
readln(a);
if a<0 then a:=a+1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
annatimofeeva4
07.01.2021 06:49
:(* 1)даны две точки на плоскости. запишите алгоритм , позволяющий определить, какая на них находиться ближе к началу координат. 2) запишите алгоритм, позволяющий определить есть...
ako91545
07.01.2021 06:49
Написать программу в паскале: дано трехзначное число. найти число, полученное перестановкой первой и третьей цифры заданного числа....
0996784
28.02.2021 19:18
Развития средств вычислительной техники...
029292299292
28.02.2021 19:18
Текст, подготовленный для передачи по электронной почте, со-держит 102400 символов. каждый символ кодируется 2 байтами и во избежание потери данных передается дважды. какова скорость...
дарья1640
03.11.2020 05:02
Html-элемент позволяющий подписать элемент в форме, называется ....
melisa9999
03.11.2020 05:02
❣️ программа в паскале,через while дано натуральное число n.вычислить сумму: p=1+3+5+..+(2n-1)...
Анкта
30.07.2020 20:17
3. в текстовом редакторе набрано слово аромат. последовательно нажали на клавиши: backspace(⇽), delete(del), shift+, shift+,ctrl+с, , ctrl+v. какое слово получилось, если курсор...
wwwwwww6
30.07.2020 20:17
19. петя, вася и егор пошли покупать «флэшки». они выбирали разные «флэшки» по размеру (4 гб, 8 гб, 16 гб) и цвету (красная, желтая, зеленая). известно: 1) василий выбрал желтую...
mihajlova2011
30.07.2020 20:17
20. что будет найдено, если в качестве поиска задать следующую строку словар? .doc: словари_1.doc словари.doc словарный.doc знак ? нельзя использовать в строке поиска...
Светланка193
04.06.2023 22:27
Решите интернет провайдер предлагает три новых тарифа .во всех случаях необходимо заплатить фиксированную сумму в месяц и доплачивать за каждый гигабайт трафика. по тарифу а нужно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
if a<0 then a:=a+1;
writeln(a);
end.