Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tanyagrandf
09.03.2023 20:52 •
Информатика
Склавиатуры водит число напишите программу которая вычитает из него 10, если оно отрицательно, в противном случае прибавляет к нему 10 и выводит на экран
Показать ответ
Ответ:
MaFizLike
16.08.2020 19:18
Program название;
var
n:integer;
begin
readln(n);
if n<0 then
n:= n-10
else
n:=n+10;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Виктор338
27.08.2021 07:37
Выражение является истинным высказыванием для значения х: 1. 5 2. 4 3. 9 4. 2...
vckdkskk
22.08.2020 07:32
Переваги та недоліки фракталької графіки...
Нвдуооп
26.04.2023 17:00
Файл размером 32 кб передаётся через некоторое соединение со скоростью 1024 бит с секунду. определите размер файла (в кб), который можно передатьза то же время через другое...
vladimirdement
01.03.2023 19:15
Составьте текст-описание(тема любая).используйте в нём наречия: справа,слева,,издалека,вдали,рядом,впереди,вверху,внизу,направо,налево,вправо,влево. 10 предложений....
LansWensEEe
01.03.2023 19:15
Решить цена товара понизилась на 30% и составляет теперь 210 рублей. какой была первоначальная цена товара?...
qooperty
01.03.2023 19:15
Сигнал радиолокатора возвратился от цели через 3,3* 10-3 с. на каком расстоянии находится цель?...
Ксюхахаха
01.03.2023 19:15
Файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. определите время в секундах, за которое можно передать через то же самое соединение файл размером...
peharbuxal
01.03.2023 19:15
Предложения со словами: оценка, трудиться, объяснять...
Снежана21111
01.03.2023 19:15
Найдите k, если известно,что график функции y = kx + 6/7 проходит через точку 1) e(-1; 1) 2) f(7; -2)...
777Leha777
01.03.2023 19:15
1. fill in the gaps using the words from the frame. fast food restaurant zoo gallery cottage department store palace swimming pool library sports centre tent 1. the smiths...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
n:integer;
begin
readln(n);
if n<0 then
n:= n-10
else
n:=n+10;
writeln(n);
end.