Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
вованн2
02.01.2020 07:51 •
Информатика
Составьте программу на Паскаль, которая, введенное с клавиатуры число, возведёт в куб, если оно положительное, если отрицательное найдет его модуль, а если оно будет равно 0, то прибавить к нему 10.
Ответ:
Mar09
11.10.2020 16:45
program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
Nina34732
18.07.2022 17:00
Склавиатуры вводятся 12 чисел . найти максимальные....
Ивангай228666
18.07.2022 17:00
Заменить в слове одну букву, что бы получить другое слово бег шаг...
Сергій098765
15.02.2021 17:54
Сколько килобайт информации содержит сообщение объемом 2 в 13 степени бит?...
slavka30
14.03.2021 03:24
а иначе на земле будет на одного долбаеба меньше ...
tarasgorodchukowd1fp
30.07.2022 07:44
Для узла с IP-адресом 108.133.75.91 адрес сети равен 108.133.75.64. Чему равно наименьшее количество возможных адресов в этой сети...
diana6k3
15.11.2021 19:16
Вспомните примеры символов, используемых вами на уроках , , языка....
VikiNiki23
07.03.2020 10:42
Запиши программу на языке паскаль. вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. если n=10, то вывод на экран (ответ округли до сотых)...
Romaniopatronys
24.05.2020 22:12
Задали сделать презентацию на тему информатика объединяет мир . что можно там написать?...
кроп1
24.05.2020 22:12
Заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю....
Иван7962
24.05.2020 22:12
Заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10] и найти сумму положительных элементов в каждой строке....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a
Объяснение: