На измерение информации.

1. найти информационный объем следующей фразы:
информация — сведения независимо от формы их представления.
2. найти информационный объем текста, написанного на языке племени чероки, состоящий из 85 символов. текст набран на одной странице. страница вмещает 238 символов.
3. найти информационный вес символа алфавита состоящего из 56 символов.
​

n = int(input())

sum = 0

for i in range(n + 1):

sum += i

print(sum)

Объяснение:

Первая строчка считывает число n. Далее заводим переменную sum, в которой будет хранится ответ. Далее запускаем цикл по всем числам от 1 до n. Переменная i будет по очереди становиться каждым этим числом, поэтому на каждом шаге цикла прибавляем ее к ответу. (В коде написано n+1, потому что цикл останавливается, когда встречает число в скобках. То есть когда i станет n+1 цикл завершится). В конце выводим ответ - переменную sum

Язык указан не был, приведу пример на Haskell

toInts :: [String] -> [Int]toInts = fmap readmodify :: Int -> Intmodify x | x < 0 = x * (-5)         | otherwise = x * 4main :: IO ()main= do    putStrLn "Enter numbers separated by newlines:"    x <- toInts <$> mapM (const getLine) [1..2]    putStrLn $ "Answer is " ++ show (modify $ product x)

Переменная x получат список из 2 чисел, введенных со стандартного ввода. Затем находится произведение этих чисел и прогоняется через функцию modify. Эта функция принимает на вход число и, если оно отрицательное, домножает его на -5, иначе домножает на 4, результат возвращает. Затем отображаем полученный результат в консоли.