Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
timon201
12.03.2021 05:31 •
Информатика
Ввести число не равное нулю. возвести во вторую степень отрицательное число, а в третью степень положительное число. на я зыке паскаль,
Показать ответ
Ответ:
stolyarovsemen
05.10.2020 11:46
Program n1;
var n: integer;
begin
readln(n);
if n<>0 then
begin
if n<0 then writeln(n*n) else writeln(n*n*n);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
стас2118
02.04.2020 10:20
Как нарисовать в кумир числа 1,3,4,5,7,8,9 исполнитель чертежник...
Brokenheart94
04.09.2020 08:01
Установи соответствие между схемой химической реакции и веществом, которое в данной реакции является окислителем....
vanyanazarenko1
14.08.2021 06:59
с ответом. якою може бути вибіркова сукупність для опитування глядачів телевізійного каналу серед мешканців міста, у якому проживає 100 тис осіб, 60% з яких чоловіки і...
уляотличница
24.02.2023 13:32
Решите с задания 1-11 сколько сможете...
jungkook010997
05.11.2021 01:01
разобраться с циклом while в Надо вывести на экраны минимальное число, больше 1000, которое делится на 121 без остатка. Обязательно надо использовать одну переменную, цикл...
kseniaflrsova72
02.11.2021 11:19
Заполните пропуски и постройте...
golubevaleshka
12.10.2022 01:31
математична модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість як сума годин і хвилин. Скажіть будь ласка!...
lenapOLD
08.05.2020 04:29
8 класс с информатикой. Структурная формула по заданной функциональной схеме и таблица....
медвва
07.03.2020 02:51
Равносильное высказывание без операций НЕ Y = (X больше 5) и не (X меньше 8)...
melnikowapolia
04.02.2022 19:50
Ввести массив состоящий из 20 элементов целого тип. Определить, каких элементов больше (чётных или нечетных). Язык C++...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n: integer;
begin
readln(n);
if n<>0 then
begin
if n<0 then writeln(n*n) else writeln(n*n*n);
end;
end.