В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
kazz1m
kazz1m
28.06.2022 15:13 •  Информатика

В кодировке КОИ-8 каждый символ кодируется 8 битами. Андрей написал текст (в нём нет лишних пробелов): «Обь, Лена, Волга, Москва, Макензи, Староандреевская, Амазонка — реки». Ученик вычеркнул из списка название одной из рек. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд.При этом размер нового предложения в данной кодировке оказался на 16 байтов меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название рек

Показать ответ
Ответ:
banana1106
banana1106
03.03.2022 09:21
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 
0,0(0 оценок)
Ответ:
Яхшибой
Яхшибой
15.12.2020 07:21

using System;

namespace ConcoleApplication

{

   class Program

   {

       enum CardinalPoints //Стороны света

       {

           North,

           West,

           South,

           East

       }

       public static int Convert(int a)//Перевод команды(сделал для удобства)

       {

           if (a == -1)

               return 3;

           if (a == 1)

               return 1;

           return 2;

       }

       public static void Main()

       {

           var n1 = int.Parse(Console.ReadLine());

           var n2 = int.Parse(Console.ReadLine());

           n1 = Convert(n1);

           n2 = Convert(n2);

           var point = (n1 + n2) % 4;

           switch ((CardinalPoints) point)//Вывод ответа

           {

               case CardinalPoints.East:

                   Console.WriteLine("Восток");

                   break;

               case CardinalPoints.South:

                   Console.WriteLine("Юг");

                   break;

               case CardinalPoints.West:

                   Console.WriteLine("Запад");

                   break;

               case CardinalPoints.North:

                   Console.WriteLine("Север");

                   break;

           }

       }

   }

}

Объяснение:

Советую потестировать. Если что исправлю, самому просто лень было тестировать)

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота