Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
динакоровина
24.04.2021 09:16 •
Информатика
Составьте алгоритм возведения четного числа в квадрат, а не четного в куб
Ответ:
7773530
26.05.2020 00:53
Составлю на языке Паскаль:
var a:real;
begin
read(a);
if a mod 2 = 0 then a:=a*a
else a:=a*a*a;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
simpolita
02.08.2021 16:25
Составьте программу ,которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат...
Marinap041744
09.07.2022 14:23
Дана вещественная матрица 20*30 упорядочить ее строки по возрастанию их первых элементов....
Кириджа114
09.07.2022 14:23
Какой объем памяти на диске займет файл размером 1000 байт, если размер сектора – 512 байт, размер кластера – 4 килобайта, файловая система – ntfs?...
исл5
22.05.2023 13:29
По трем введенным с клавиатуры сторонам необходимо выяснить является ли этот треугольник равносторонним....
Попова1234
25.07.2022 20:15
Составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран...
prostofiii
19.10.2022 22:19
195 708.347 231 552:384 67 424:784 5 016:57 600 624:86 6 984:8 400 014:626 477 648:496 66 555:87 327 456:379 220 968:594 5 892:6 356 845:535 416 598:546 65 272:796 263...
ник4410
28.02.2021 18:15
Чим представлений гаметофіт папоротеподібних? заростком дорослою рослиною сорусом зародком Питання №2 ? Яке покоління домінує в життєвому циклі папоротей? Нестатеве...
kirikdementev
15.11.2020 06:21
Все обращения из сказки царевна лягушка...
Sasha1234679
09.12.2020 03:56
Определи по рисунку градусную меру угла ABC....
лоро12
25.12.2020 03:37
Какая стадия развития отсутствует у насекомых с полным превращением?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Составлю на языке Паскаль:
var a:real;
begin
read(a);
if a mod 2 = 0 then a:=a*a
else a:=a*a*a;
end.