Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ампфетамін
19.02.2021 04:51 •
Информатика
Ввести число не равное нулю. возвести во вторую степень отрицательное число, а в третью степень положительное число. на я зыке паскаль,
Показать ответ
Ответ:
ddurua
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 оценок)
Популярные вопросы: Информатика
lianaderzkaya82
06.08.2021 08:54
Python: 20 - Деление и остаток 1. Чему будет равна переменная «c» после выполнения этой программы: a = 26 b = 6 b = a // b + b c = a % b + a ответ: 2. Чему будет равна переменная...
Snow241
13.03.2022 00:17
A19cdf0921 какой объём содержится в сообщении, если в нём используется все знаки алфавита...
1Nicol1
19.03.2022 16:28
Какие вам известны приемы для ввода индексов...
ахпхпха
16.11.2020 20:25
Дан прямоугольник со сторонами a и b. Известно, что a=10 см; b на 2 см больше. Требуется найти S - площадь прямоугольника Приведите алгоритм решения задачи...
sashakameka
20.10.2020 02:18
Если бы вы были директором вашей школы, что бы вы сделали, что отличается от того, что делается сейчас?...
Мұғалімpvl
20.10.2020 02:18
Как изменится яркость оставшихся лампочек, если убрать лампочку a? убрать лампочку b? убрать лампочку c?...
lonelynightly
20.10.2020 02:18
№1. write the translation. 1. eе мама умеет готовить. она невысокая и добрая. 2. у моей сестры светлые волосы и голубые глаза. 3. я могу читать книги. я умный. 4. ее папа высокий...
maloypipos
20.10.2020 02:18
Where is the sholl? find the way to the scholl and write down the directions...
ARINA55T5
20.10.2020 02:18
Перепешите словосочетания, записывая числит словами коллекция из 287 картин,владеет 945 марками, помнить о 14 примерах ,небоскреб со 125 этажами ,с 2860 рублями в кармане, около...
2508sanya
20.10.2020 02:18
Скласти текст-опис розквітлого соняшника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.