Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
3klass1
13.07.2022 15:17 •
Информатика
Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным -2. если 0 то прибавить 10.
Показать ответ
Ответ:
myafyanya
15.07.2020 16:09
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
yxhcycgc
25.06.2021 08:12
Вытянув репку дед бабка внучка жучка кошка мышка решили отпраздновать это событие они хотят рассесться вокруг круглого стола и торжественно поужинать вытянутой репкой однако...
timahipoDrakeylol
20.02.2023 16:15
Сколько килобайтов содержит сообщение 14745,6 битов информации?...
ZigZag1983
21.08.2020 14:15
сделайте это нужно.Введите в ячейки А1 и B1 два числа и в ячейке CI запишитедействия, указывающиена замену третьей-пятой цифр длинного числана короткое....
elvira127
21.01.2023 04:32
Динара хотела скачать файл «Мой проект» с папки общего доступа «Все проекты» в папку «Для проверки». Допишите алгоритм как ей это сделать. Ø Открыть папку общего доступа Ø Щелкните...
elizavetachery
30.03.2022 16:40
Расставьте в соответствии инструменты и их названия Необходимо выбрать название элементов из предложенного списка ниже и вписать в выделенные окна У МЕНЯ СОР...
karen781
19.12.2022 06:05
Дан фрагмент электронной таблицы. В ячейку D1 введена формула = 2*A1+$C$1/2 a) Запишите элемент формулы, который содержит абсолютную ссылку b) Напишите результат, который будет...
arlanout
24.03.2020 18:57
решить информатику цикл через while без Через...
Ирина63500
14.10.2020 03:20
Даны два массива одинаковой размерности A(N) и В(N). Определить количество элементов, удовлетворяющих условиям A(i) B(i);A(i)...
nestarenko7ozgxln
13.06.2020 06:35
Білу және түсіну денгейлерін тезірек айтып жібересіздерма өтнем...
мопдркиопм
23.03.2023 17:41
Опре¬де¬ли¬те раз¬мер сле¬ду¬ю¬ще¬го пред¬ло¬же¬ния в дан¬ной кодировке ASCII Программы-переводчики успешно переводят текстовые материалы, написанные «сухим» языком. 2. С кодировочной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.