Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vipkakunina
17.09.2021 01:01 •
Информатика
Дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . протестировать программу для a=3, a=0, a=-12.
Показать ответ
Ответ:
misarevakin6
09.09.2020 15:00
Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ashbringer12332
03.08.2021 12:01
Определите результат работы функций ЗАМЕНИТЬ ( ; 5; 1; ), ЗАМЕНИТЬ (NIKOTIN-ZAHARDIR ; 2;6; )...
Сенси
17.06.2022 08:25
Задание из ЕГЭ: 9 Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за...
daniil069531671
16.06.2022 23:40
Нужна : с найти max из: min(а,в,с) и min(а1, в1, с1). нужна блок-схема и программа(или хотя бы что-нибудь одно из этого) : 0...
lerusik112
16.06.2022 23:40
Нужно перевести из 10 сс в 2 числа: 951, 753, 1245, 852 , . заранее...
пончоДжян
04.10.2020 08:47
Використання smart технологій в освіті та навчанні....
Nikito23
30.08.2022 11:53
В MS Access двойной щелчок по элементу управления … вызывает окно свойства для данного элемента управления; вызывает режим редактирования ; выделяет его; удаляет его....
zxvgg
31.01.2023 21:39
Определить количество строк матрицы [Aij]10.15, в которых значение ми-нимального элемента более 3 и менее 10. Сделать блок-схемой, по всем канонам...
Lina905
02.06.2021 11:07
Вычислите частичную сумму ряда: S=1-x^2 /2!+x^4/4!-x^6/6!+x^8/8!...Вычисления прекратите, когда модуль очередного слагаемого станет меньше 0,001. Значение X вводится...
Elizabeth1006
09.11.2022 13:28
Сколько бит необходимо для кодирования 256 цветов? ...
HastWay
07.11.2022 10:07
Код на языке Python Дан файл f, компоненты которого являются целыми числами. Найти позицию последнего числа, не превышающего числа b...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.