Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
asyamursalova12
28.02.2021 09:18 •
Информатика
Дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное число.
Показать ответ
Ответ:
marylps45
15.07.2020 12:36
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 оценок)
Ответ:
perizatvip
15.07.2020 12:36
Как я понял, тебе нужно составить программку, я сделал на паскале
var a:integer;
begin
read (a);
if a>0 then
a:=a+1;
if a<0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyassddffgbvgg
01.04.2022 10:42
ИНФОРМАТИКА 6 КЛАСС ВАРИАНТЫ ОТВЕТОВНЕТ ВЕРНОГО ОТВЕТАИССЛЕДОВАНИЕ ОБЪЕКТА ОПАСНОИССЛЕДУМЫЙ ОБЪЕКТ СРЕДНИХ РАЗМЕРОВИССЛЕДОВАНИЕ ОБЪЕКТА ЦЕЛЕСООБРАЗНО...
Алла36
31.05.2023 17:50
Написав контрольную работу по математике, три сестры сообщили родителям следующее: Ира: «Я написала не на 5.» Светлана: «На этот раз я написала на 5». Лиза: «Я написала...
GooodBaby
11.02.2020 04:25
Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника через Python. Пример входных данных:xa = 2ya = 1xb = 6yb =...
zhahbota
27.09.2022 23:52
Сфераға немесе кубқа проекцияланғанпанорамалы фотосуретті не деп атаймыз?...
Posrednikova04
18.12.2021 06:10
Задача Пользователь работал с каталогом C:\Информатика\Программное обеспечение\Системное. Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень...
Тигрица574
24.12.2020 13:53
Скласти програму обчислення середнього арифметичного перших N натуральних чисел за запропонованим алгоритмом. Приклад.N=20Результат: 10,5...
5555Анастасия5555
08.01.2023 22:07
Заполнить таблицу,в каждой строке которой одно и то же число д.б. записано в системе счисления с основаниями 2,8,10 и 16 Осн-е2 осн-е8 осн-е 10 осн-е 16110010 137 231...
close44
24.05.2023 22:08
7 самого Домашнее задание Тема мини-проекта: «Интернет-провайдеры Казах- стана». Цель мини-проекта: исследовать рынок интернет-про- вайдеров Казахстана. Виды деятельности:...
XOPOSHISTIK
15.11.2020 00:34
5- 9 прочитайте отрывок из мифа «актеон». 1. проанализируйте, подробно описывая героев. 2. найдите художественные средства. определите их функцию. 3. определите роль данного...
iroytblatилья
14.05.2023 12:18
Семь футболистов забили в турнире 20 голов.докажите что хотя бы 2 футболиста забили одинаковое количество голов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.
var a:integer;
begin
read (a);
if a>0 then
a:=a+1;
if a<0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.