Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ksiuscha05
03.10.2022 20:42 •
Информатика
Дано целое число если оно отрицательное, то возвести его в квадрат; есди положительное или равное нулю, то найти его куб
Показать ответ
Ответ:
dxkuznecov
03.10.2020 11:03
Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then a:=sqr(a) else a:=sqr(a)*a;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
egorbud5
08.05.2022 19:13
На доске нарисованы точки. Пусть А = Внутри круга А находятся 190 точек и В = Внутри круга В находятся 230 точек . Всего на доске нарисовано 500 точек. Внутри обоих кругов одновременно...
срочно118
07.12.2022 21:55
Нужна в написании программы( можно писать на языке паскаль или delphi). : при заданной величине а и заданных элементах x1, x2, …, xn и y1, y2, …, yn определить число произведений...
mumina7
04.02.2021 08:57
Пакет пряников и связка баранок вместе весят 9кг. а два пакета пряников и связка баранок весят вместе 13 кг. сколько весит один пакет пряников и сколько весит одна связка баранок...
еклвла838
17.04.2020 02:05
Глаза воспринимают световые сигналы, которые обрабатывает преобразуя в...
lisi2912
12.01.2023 11:36
Искренне,ваш гуманитарий. 1.сообщение состоящее из 4096 знаков(с пробелами),занимает 3,5 кбайт.какова мощность алфавита,который использовался при кодировании этого сообщения?...
ladygum78
07.03.2022 14:18
Составьте программу, которая по введенному k – числу цветков печатает фразу «в букете k цветков», причем согласовывает окончание слова «цветок» с числом k. на паскале...
YounMing
22.07.2021 16:17
Дан целочисленный массив из 30 элементов. элементы массива могут принимать произвольные целые значения. опишите на языке программирования алгоритм, который находит и выводит...
katemurzik
31.08.2020 02:57
Калонка это устройство ввода или вывода...
АйданкаТоктогулова
13.11.2022 22:40
Программа pascal. даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины треугольника. вычислить а) длины сторон треугольника б)площадь треугольника...
QAZPLM11
13.01.2020 14:37
решить язык программирования Питон Обьясните как правильно прописать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите число: ');
readln(a);
if a<0 then a:=sqr(a) else a:=sqr(a)*a;
writeln(a);
end.