В кодировке КОИ-8 каждый символ кодируется 8 битами. Определить информационный вес данного предложения 《Через терним - к звездам!》

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).

Полагаю, это дубликат но без данных о входных/выходных данных. Тогда я продублирую решение на C#.

using System;

using System.Linq;

namespace Samokat

{

   class Program

   {

       static void Main(string[] args)

       {

           var input = Console.In

               .ReadLine()

               .Split(',', ' ')

               .Where(t => !String.IsNullOrEmpty(t))

               .Select(int.Parse)

               .ToList();

           int flatLen = input[0];

           int uphillLen = input[1];

           int flatDrain = input[2];

           int uphillDrain = input[3];

           int fuel = input[4];

           // minimizing flat travel

           int minFlatLen = flatLen - fuel;

           minFlatLen = minFlatLen < 0 ? 0 : minFlatLen;

           int maxUphillLen = uphillLen - (fuel - (flatLen - minFlatLen)) / 2;

           maxUphillLen = maxUphillLen < 0 ? 0 : maxUphillLen;

           // minimizing uphill travel

           int minUphillLen = uphillLen - (fuel) / 2;

           minUphillLen = minUphillLen < 0 ? 0 : minUphillLen;

           int maxFlatLen = flatLen - (fuel - (uphillLen - minUphillLen) * 2);

           maxFlatLen = maxFlatLen < 0 ? 0 : maxFlatLen;

           int minFlatTravelDrain = minFlatLen * flatDrain + maxUphillLen * uphillDrain;

           int maxFlatTravelDrain = maxFlatLen * flatDrain + minUphillLen * uphillDrain;

           var minDrain = Math.Min(minFlatTravelDrain, maxFlatTravelDrain);

           var maxDrain = Math.Max(minFlatTravelDrain, maxFlatTravelDrain);

           Console.Out.WriteLine(minDrain);

           Console.Out.WriteLine(maxDrain);

       }

   }

}