Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Rımma7
17.06.2021 16:06 •
Информатика
Составьте программу к : возвести данное число в куб,если оно чётное, и увеличить на 3, если оно-нечётное ps: pascal
Показать ответ
Ответ:
wazap100
01.10.2020 12:54
var
a: integer;
begin
writeln('Введите число: ');
read(a);
if a mod 2 <> 0 then writeln('Число нечетное: ',a+3)
else writeln('Число четное: ',a*a*a);
end.
0,0
(0 оценок)
Ответ:
qq503
01.10.2020 12:54
Uses crt;
var i:integer;
begin
readln(i);
if i mod 2=0 then writeln(power(i,3))
else writeln(i+3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AnastasiaBA
03.06.2022 09:47
Написать программу и блок-схему для решения следующей . в двумерном массиве, состоящем из целочисленных элементов, поменять местами: в каждом столбце первый и последний отрицательные...
MasterSporta13
03.06.2022 09:47
Резиновый мячик прыгает.какое свойство воздуха используется в этом случае...
LYUBASHA83
28.04.2020 12:30
Почему отношение неравенства можно назвать логическим выражением? пример блок-схемы алгоритма с логическим условием....
Era2008
25.08.2021 09:07
Даны натуральные числа a и b. требуется найти такое минимально возможное натуральное число k ≥ a, что сумма всех чисел от a до k больше b. для решения этой ученик написал программу,...
radovdima
25.08.2021 09:07
Вводится последовательность чисел до тех, пока не будет введено два равных числа подряд. посчитать количество чисел в последовательности. выходные данные выведите количество чисел...
ap1611341
07.09.2022 03:19
Для кодирования одного символа в таблице UNICODE надо...
3asyavasilkova3
28.10.2020 13:44
Напишите программу на языке Python, которая получает с клавиатуры натуральные числа А и N и вычисляет А^N без использования операции возведения в степень....
nastya2740
07.07.2022 08:17
Сканируется цветное изображение размером 10,16 х 10,16 см квадратных разрешающая сканера 600 на 1200 dpi и глубина цвета 24 бита какой информационный объем будет иметь полученный...
Terbull
13.02.2021 14:09
Граматична помилка є в реченні * 1)Він у класі наймаліший. 2)У неї найдовша коса серед усіх дівчат. 3)Степан менш забезпечений, ніж Василь. 4)Зошити в дівчат охайніші, ніж у хлопців....
otvet12313434
14.11.2021 01:27
В квартирі, де живе Тарас встановлено лічильники холодної і гарячої води. 1 січня лічильник холодної води показував 105м.куб., а гарячої112 м.куб.. 1 лютого лічильник холодної...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: integer;
begin
writeln('Введите число: ');
read(a);
if a mod 2 <> 0 then writeln('Число нечетное: ',a+3)
else writeln('Число четное: ',a*a*a);
end.
var i:integer;
begin
readln(i);
if i mod 2=0 then writeln(power(i,3))
else writeln(i+3);
end.