Войти
Регистрация
Спроси 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 оценок)
Популярные вопросы: Информатика
Pawel10hor
17.01.2022 08:38
Сообщение на тему « римской нумерации» желательно не длинное !...
дар70
04.02.2020 14:13
Вычеслить значение у=корень х при х= [1; 10] с шагом 1...
суперкотик4
24.05.2022 18:52
35б. программирование. pascal с клавиатуры вводятся 4 положительных числа – длины отрезков. вывести на экран построчно сочетания длин отрезков, из которых нельзя составить...
vladaplakhotya
17.04.2021 11:07
Определить в целочисленном массиве (b8) количество и сумму элементов кратных 5...
Виктор338
27.08.2021 07:37
Выражение является истинным высказыванием для значения х: 1. 5 2. 4 3. 9 4. 2...
ЯрославаВячеславовна
05.04.2023 14:25
Реши задачу. (ответ округли до целых). Книга содержит 139 страниц. На каждой странице 35 строк. В каждой строке 56 символов (включая пробелы). Найти информационный объём текста,...
nikita577344
06.01.2021 14:51
Як познячається логічна операція “більше” в мові програмування Free Pascal?...
vckdkskk
22.08.2020 07:32
Переваги та недоліки фракталької графіки...
Нвдуооп
26.04.2023 17:00
Файл размером 32 кб передаётся через некоторое соединение со скоростью 1024 бит с секунду. определите размер файла (в кб), который можно передатьза то же время через другое...
Morikachan46
01.03.2023 19:15
Словам-сябрам адшукаць адно аднаго верны, зайка, щкло, ласяня,празрыстае, сонейка, палахливае, сябар,ласкавае, синичка, хитрая, плюшавы....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.