Question

Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб

Answer 1

var

a: integer;
b: real;
begin

writeln ('введи целое число');

read (a);

if a mod 2=0 then b:=a/2

else

b:=a*a*a;

writeln ('результат',b);

end.

Answer 2

Конечно, давайте рассмотрим задачу более подробно. Если у нас есть целое число, то мы должны выполнить два различных действия в зависимости от того, является ли оно четным или нечетным.

1. Если число четное, то его нужно уменьшить в 2 раза. 2. Если число нечетное, то его нужно возвести в куб.

Давайте представим, что у нас есть переменная `x`, которая содержит целое число. В псевдокоде это может выглядеть так:

# Получаем целое число
x = ...

# Проверяем, является ли число четным
if x % 2 == 0:
    # Если число четное, уменьшаем его в 2 раза
    x = x // 2
else:
    # Если число нечетное, возводим его в куб
    x = x ** 3

# Выводим результат
print(x)

В данном коде используется оператор `%`, который возвращает остаток от деления. Если остаток от деления числа на 2 равен 0, то число четное. Оператор `//` используется для целочисленного деления.

Обратите внимание, что код представлен в виде псевдокода, и в зависимости от конкретного языка программирования синтаксис может немного отличаться, но идея останется прежней.