Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
igorgame39
16.01.2022 08:54 •
Информатика
Дано целое число. если оно является положительным, то прибавь к нему 3. в противном случае не изменять его. вывести полученное число.
Ответ:
AlinaSh25
16.05.2020 17:56
var x:integer;
begin
readln(x);
if x>0 then x:=x+3;
writeln(x);
end.
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
sukaheva
17.02.2020 01:24
с во Какие ресурсы могут быть уменьшены?...
mlkalxa78
30.01.2022 10:13
1) Моделирование - это * 1.Процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения цели моделирования. 2.Процесс демонстрации...
hippol
26.04.2022 05:17
ответить на во Что такое графика?2) В чем отличие растровых и векторных изображений?3) Из чего состоят растровые, векторные графические изображения? ...
Nastya20081505
27.08.2020 23:42
нужна с заданием 11 класса. Желательно с объяснением чтоб самому понять....
ozilpro228
20.10.2020 21:13
В кодировке CP866 каждый символ кодируется одним байтом.Определите количество символов в сообщении если информационный объем 240 бит....
uncu4ek
20.04.2021 02:28
Как решать задачи такого типа?...
Dasha555511111
30.09.2020 14:51
Кто скачивал майнкрафт, у меня не запускается лаунчер выходит это на несколько секунд что делать?...
Nickky
13.04.2022 18:35
Как нарисовать танк в программе кумир (чертёжник) зараннее...
ppavlowich
19.05.2022 22:03
Если информация имеет объём 14 мегабайт Определите её объём в битах байтах килобайтах...
Maowsk
21.02.2020 07:57
Информатика,Обробка подій, переміщення та клацання миші,ПРАКТИЧНА РОБОТА...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:integer;
begin
readln(x);
if x>0 then x:=x+3;
writeln(x);
end.
Объяснение: