Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
liliya134
10.05.2020 23:59 •
Информатика
1. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. написать программу для решения этой . программа должна иметь дру-жественный интерфейс. протестировать программу для a=5, a=-4, a=0.
Показать ответ
Ответ:
марина1924
21.08.2020 07:54
Var a:integer;
begin
readln(a);
if a<0 then a:=a+1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kurbanov2017p05b7v
13.12.2020 13:36
Подготовьте краткое сообщение о том, на чём и с каких инструментов люди записывали информацию в былые времена....
Nastya4816
18.11.2021 21:34
Написать код в с# в двумерном массиве хранится информация о количестве учеников каждом из четырех классов каждой параллели школы с первой по одиннадцатую(в первой...
лера1405
07.11.2022 15:44
1) какова роль информации в современном обществе и его структурах: , социальной, культурной, образовательной? 2) назовите наказание за правонарушения в сфере защиты...
violettaya12
06.03.2023 04:56
Как изменится размер текстового файла, если вместо 256-символьного алфавита использовать 16-символьный...
oleg120906
12.11.2020 19:10
Найти ошибку (информатика, паскаль). var s,k,a: integer; begin s: =0; k: =0; read(a); while a 0 do begin if a mod 8=0 then begin s: =s+a; k: =k+1; end; readln(a);...
Ckyka
12.11.2020 19:10
1. вычислите значение функции у=2х(в квадрате) + 4х-2 на отрезке (0.17) с шагом 1.5...
troffpolina2003
12.11.2020 19:10
Вычислите произведение, если n вводится с клавиатуры: n(1-n)(2-n)(3--1)-n) ....
Артур15051505
06.05.2022 21:59
Запишите последовательность команд ms dos, позволяющую создать на диске x директории с1 и с2. в каждой из них создайте по одному текстовому файлу с5.txt и c6.txt,...
Yanaaa13
06.05.2022 21:59
Найдите произведение целых чисел от 20 до 40....
belovworms2003p0af24
06.05.2022 21:59
Скорость передачи данных через adsl-соединение равна 9216000 бит/c. передача файла через данное соединение заняла 12 секунд. определите размер файла в кбайт....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
if a<0 then a:=a+1;
writeln(a);
end.