Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Коугар
30.07.2022 17:02 •
Информатика
Составьте программу к : возвести данное число в куб,если оно чётное, и увеличить на 3, если оно-нечётное ps: pascal
Показать ответ
Ответ:
Ксюша10092007
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 оценок)
Ответ:
anastasiakhrul
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 оценок)
Популярные вопросы: Информатика
Angelina13112003
13.05.2020 22:55
В каком режиме просмотра документов следует применять стили? ( с пояснение...
Katylopy
27.01.2023 17:48
1. Напишите программу, которая определяет делится ли вводимое значение на 7 или нет (является ли число кратным 7)...
NastyaDND
30.12.2021 10:55
Тус датчиги канша тусти таниды...
Polinadonut
03.12.2020 14:43
пользователь хочет сохранить на компакт дисках все свои любимые кинофильмы. У него K штук любимых фильмов, каждый фильм в среднем занимает 1,2 гб. Сколько DVD-R(объём...
влад2220
09.12.2021 05:54
Дина создавала презентацию на тему «Берегите лес!». Во время поиска необходимых материалов в Интернете погас свет. Включив компьютер через некоторое время, она не смогла...
mafobe66
12.05.2023 07:56
Задание 2 **. Состоит только из цифр b и c Данный. 1. Добавьте треки и отобразите их. 2. Преобразуйте строки в целое число и их сумму. Например 214 456 300 Результат 214456300...
angelinachka3000
21.12.2022 04:19
При решении этой задачи вложенный условный оператор бу-дет иметь алгоритм:если х 0)тоу вычислить по формуле у = х – 12Иначеесли х = 0 тоу вычислить по формуле у =5Иначе...
KoRiiZa
02.12.2022 22:16
Мой богатый дядюшка подарил мне 1 доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько...
ndzandigiv
17.12.2022 18:19
Выполняем е тетради Вспомни режимы датчика цвета. Запиши их в тетрадь.Режим Яркость отраженногосветаРежим Яркость внешнегоосвещенияРежим Цвет ...
Настя456598
01.12.2021 23:39
Напишите программу, вычисляющую 2n. Питон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.