Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Suri31
26.04.2023 00:05 •
Информатика
2. даны три целых числа. возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
Показать ответ
Ответ:
Vlada12092009
21.07.2020 11:29
Var a, b, c: integer;
function zd(a:integer): integer;
begin
if a=0 then
zd:=0
else
if a>0 then zd:=sqr(a) else zd:=a*a*a;
end;
begin
read(a, b, c);
write(zd(a), ' ');
write(zd(b), ' ');
write(zd(c), ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GDI1
29.05.2021 09:00
Возвести натуральное число a в натуральную степень b, используя определение степени...
EvilVitaliy
19.03.2021 08:35
Программирование: дано четырехзначное число верно ли что сумма двух крайних цифр равна сумме двух средних...
Lulera
19.03.2021 08:35
Представьте круговорот воды в природе в виде графа (семантической сети), в которой вершинами являются перечисленные объекты, а дугами — отношения между ними, обеспечивающие движение...
kopanenkoanutaoyp3as
10.04.2021 09:08
Некое растровое изображение было сохранено в файле p1.bmp как 24-разрядный рисунок. во сколько раз будет меньше информационный объём файла p2.bmp, если в нём это же изображение сохранить...
ALEXDEMI777
10.04.2021 09:08
На остоновке стоит человек в ожедании автобуса 3. какое куличество информации несет сообщение о том , что к остоновке подехал автобус 4?...
uhudongoair
10.04.2021 09:08
Розробити проект вякому за введення значеня маси буде визначатися стан людини.за норму 40-60...
ann396
02.10.2020 02:29
Кто разбирается в логомиры и с командой make. напишите ответ! 1. вывести значение z, если x= a1 x a2 y= a1 + a2 i= a1 - a2, где a1 = 97, a2 = 8...
Glupiy777
02.10.2020 02:29
Составьте алгоритм : является ли треугольник со сторонами авс равнобедренными и равносторонними...
superfrap320
28.03.2023 17:29
Укажите какой командой можно изменить междустрочный интервал?...
Ариана16112001
28.03.2023 17:29
Заполнить массив на 30 целочисленных элементов псевдослучайными значениями от -200 до 200, найти самое большое отрицательное число и самое маленькое положительное (паскаль)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function zd(a:integer): integer;
begin
if a=0 then
zd:=0
else
if a>0 then zd:=sqr(a) else zd:=a*a*a;
end;
begin
read(a, b, c);
write(zd(a), ' ');
write(zd(b), ' ');
write(zd(c), ' ');
end.