Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ivkov2003
24.11.2020 17:27 •
Информатика
Составить в паскале программу. пользователь должен ввести число. затем, если число положительное (больше нуля), то умножаем его на 2, иначе прибавляем к числу 1.
Показать ответ
Ответ:
9989744524081
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 оценок)
Популярные вопросы: Информатика
нигич1
17.04.2020 08:59
Написать программу(с++) даны два числа. найти среднее арифметическое кубов этих чисел и среднее модулей этих чисел. исходные данные разместить на двух строках. выдать на печать информацию...
egorkozlovcev
05.07.2021 18:16
решить задачу. Документ объёмом 20 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по каналу...
magnatca
26.03.2023 12:46
составить таблицу истинности ...
Lybasha7
19.06.2022 12:49
Дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (a, б)...
AgafAl
11.07.2022 17:42
Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг\м³. составьте программу, которая вычисляет давление столба жидкости на дно сосудов p=dgh( g=9,8м\с²) 6...
juliyamacko99
25.01.2021 11:38
Дать определение термину «операционные системы». какие виды операционных систем вы знаете? дать полный ответ....
Andrey0116
12.07.2021 19:35
Сообщение записано буквами из 128-символьного алфавита содержит 30 символов.какой объём информации оно несёт...
Krank09
12.07.2021 19:35
Сообщение записано буквами из 128-символьного алфавита содержит 30 символов.какой объём информации оно несёт...
lenawer
16.12.2021 11:19
Учебник содержит 256 страниц на каждой странице - 32 строки, в каждой строке - 64 символа, а каждый символ кодируется 2 байтами. сколько таких книг поместиться на флэшке емкостью 256...
mulin2000462345
30.09.2020 03:37
Составить программу на языке паскаль! составить программу линейной структуры в квадратной комнате шириной а и высотой в решили поклеить обои. вычислите площадь стен для оклеивания...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.