Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Kroher
31.12.2022 18:59 •
Информатика
Дано целое число. если оно является положительным, то прибавь к нему 3. в противном случае не изменять его. вывести полученное число.
Ответ:
26271123
16.05.2020 17:56
var x:integer;
begin
readln(x);
if x>0 then x:=x+3;
writeln(x);
end.
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
VlEllen
08.05.2020 09:52
Автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 16–битном коде unicode, в 8–битную кодировку windows–1251,...
graulity
08.05.2020 09:52
Вінтернеті можна натрапити на матеріали що містять сцени...
OneLoveAltezza
08.05.2020 09:52
Какое самое точное общее имя слов: канада,бразилия,япония?...
krasotkak31
31.05.2020 17:16
Написать программу , которая вычислит отдельные суммы четных и нечетных чисел натурального ряда и их произведения...
Ната911
25.09.2021 03:36
Дана матрица a(n,n) получить новую матрицу путем деления всех элементов матрицы на элемент, значение которого равно разности между максимальным и минимальными элементами...
Gggmim
25.09.2021 03:36
Написать программу нахождения частного отделения двух чисел . определить является ли целое число вводное с компьютера чётным....
знания2345
04.01.2020 11:30
Дана высота и радиус цилиндра. найти площадь боковой поверхности, полную площадь. s=2пrh. sn=s6+2пr...
popovaviktoriy3
04.01.2020 11:30
Сидят 2 кузнечика на шкале 0. решили попрыгать. первый сделал 7 шагов в перед по 4 клеточки. второй сделал 9 шагов по 3 клеточки. потом второй кузнечик развернулся сделал...
din46
20.08.2022 01:06
Nбүтін сандардан тұратын файл құрыңдар да, сол файлдағы сандардың ең үлкенін анықтап, оны экранға шығарыңдар. на паскаль...
Коугар
02.04.2020 17:14
На доске записана текстовая информация: половинки слов. слова разделены не на слоги. половинки записаны вразнобой. ваша соединить эти половинки между собой так, чтобы текст...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:integer;
begin
readln(x);
if x>0 then x:=x+3;
writeln(x);
end.
Объяснение: