Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
azharik2k17
17.10.2021 14:15 •
Информатика
Составить в паскале программу. пользователь должен ввести число. затем, если число положительное (больше нуля), то умножаем его на 2, иначе прибавляем к числу 1.
Показать ответ
Ответ:
szelenkooz1uqs
25.09.2020 23:28
Program p1;
var
num: integer;
begin
write('Введите число: ');
readln(num);
if num > 0 then
writeln('Вывод: ', num * 2)
else
writeln('Вывод: ', 1 + num);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
IamGroot1
26.01.2022 02:28
Написать программу, которая находит максимальное и минимальное значение, записанное в массив. Наполнение массива, поиск максимального значения, поиск минимального значения...
lozhe4ka
13.07.2020 09:40
В приведённом фрагмене кода на языке Pascal выберите страну, являющуюся телом цикла...
Nastya521478
04.04.2022 00:51
1. У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает...
SuperChelovek
04.04.2022 00:51
На координатной плоскости отметь три известные вершины квадрата BCDE:B(3;5);C(7;9);D(11;5).(Дополни рисунок, определи и запиши координаты четвёртой вершины квадрата...
dimamc99
05.03.2022 00:57
с решением информатики. 3 задачи....
Lyn8023
05.02.2022 16:15
1.Назовите координаты точек в которых находился чертёжник до выполнения команды сместиться в точку(2, 3)смотреть рисунок 64 2.В каком случае в результате выполнения...
Vova50915091
11.04.2022 01:23
Текст задачи; Знайдіть відомості та створіть пам’ятку для уроків трудового навчання: у текстовому процесорі - як обирати режим прання одягу залежно від позначень, наведених...
арана19
29.09.2021 04:56
Напишите программу на языке программирования паскаль, которая будет сравнивать 5 чисел между собой и выводить наименьшее...
Wild044Rose
02.10.2020 03:12
Поставьте в соответствие блок- схеме работы цикла ключевое слово, обозначающее цикл в языке Pascal...
narek2006
27.09.2021 23:33
Во У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
num: integer;
begin
write('Введите число: ');
readln(num);
if num > 0 then
writeln('Вывод: ', num * 2)
else
writeln('Вывод: ', 1 + num);
end.