Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
shram070
07.09.2020 17:55 •
Информатика
Дано целое число.если оно является положительным,то прибавить к нему 1,в противоположном случае вычесть из него 2.вывести полученное число.
Ответ:
timkoa
09.07.2020 23:34
Var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
0,0
(0 оценок)
Ответ:
Abdul18
09.07.2020 23:34
Var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
madecat
18.08.2021 03:13
1. дaны длuны стoрoн трeyгoльника a, b, c. найти площадь треугольника s по формулам s=p*(p-a)*(p-b)*(p-c), p=(a+b+c)/2...
София9354
02.04.2022 23:48
В кодировке UTF-32 каждый символ кодируется 16 битами. Коля написал текст (в нём нет лишних пробелов): «Эри, Айыр, Гурон, Восток, Онтарио, Виннипег — озёра». Ученик вычеркнул из списка...
269069
13.07.2021 04:23
запишите формулу в виде арифметического выражения на языке Фортран, составьте программу вычисления выражения и вычислите результат ...
myster2
18.12.2021 03:30
Имеется два запоминающих устройства: одно ёмкостью 2048 Кбайт, другое - 2048 байт. Укажите суммарную ёмкость обоих устройств в Кбайтах. В ответе запишите только число....
vladreutenko99
14.04.2023 18:40
Люди добрые заметьте Определи количество отверстий в маломи большомпараллелепипедах соответственно.это билим ленд...
Ljjr6958der8cox45
19.07.2021 11:40
Аспаптардың дыбысы қалай күшейеді?...
машуня89
07.07.2021 12:32
Объясните строку: mPeriod=((TH0 8)|(TL0)|(mCountTik 16));...
Zvezba1111111
18.03.2023 04:51
Упростить выражение 2(х+4)+6х. ...
izibaevsergei
24.03.2021 00:35
Как обьяснить ребёнку 39÷13 в столбик...
Sasha2000ret
23.01.2021 15:44
Сауыншы, туыс, қауын, уақыт, бауырсақ қайсысы артық. Дауысты дыбысқа дыбыстық талдау. Комектесениздер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.