Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
elinazayka
23.03.2022 08:59 •
Информатика
Составить программу, которая чётное число возводит в квадрат, а не чётное в куб
Показать ответ
Ответ:
Альберт211
06.10.2020 11:06
Var a, b: integer;
begin
readln (a);
if a mod 2 = 0 then
b:= a*a
else
b:= a*a*a;
writeln (b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
wolf135791
14.04.2023 19:25
На носителе объемом 800 Мбайт размещены изображения, каждое из которых занимает 200 Кбайт. Найдите количество изображений (файлов). (в ответ запишите число)...
2005161718
16.05.2021 23:46
С подробным объяснением! Поставил максимум (99) ....
эльза182
03.07.2022 20:20
Python почему ошибка выходит...
Makson3D
24.09.2022 13:01
решить 3 задачи по информатике...
temka2013
30.06.2022 12:44
Дана последовательность целых чисел a1, a2, ..., aN. Элементы последовательности –случайные числа из диапазона от 4 до 112 включительно. В данной последовательности найти...
r0ma000
30.04.2020 20:12
Векторлық суреттердің сипаттары...
Dasha12357123
22.11.2021 17:39
Какие технические и программные средства необходимы для вывода на печать файла?...
valera228005
22.11.2021 17:39
Что общего между пуантилизмом (техника живописи), созданием мозаичных изображений и формированием изображения на экране монитора?...
nikgum
22.11.2021 17:39
A/\b логически это: 1) а и в 2)а или в...
Даша0124
20.11.2020 07:41
Нужна Запишите дробь бесконечного периода 33,04 (731) в виде простой дроби...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln (a);
if a mod 2 = 0 then
b:= a*a
else
b:= a*a*a;
writeln (b);
end.