М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Найдите такое минимальное целое положительное число N, что если прибавить его к 121210 и перевести результат суммирования в двоичную систему счисления, то получившаяся запись числа будет содержать только единицы. В ответе укажите число N, записанное в десятичной системе счисления.

Можно немного объяснить, как такое решать?

2. Петя сохранил некоторый текст, состоящий из 8192 символов, с использованием двухбайтной кодировки Unicode. Вася заметил, что в тексте встречаются далеко не все символы, возможные в этой кодировке и сохранил этот же текст, кодируя каждый символ минимально возможным, одинаковым для всех символов количеством бит. В результате Вася сэкономил 7 КБайт памяти.
Какое максимальное количество различных символов может встретиться в тексте? В ответе укажите целое число.
Примечание. 1 КБайт=1024 байта.

3. Робот движется по клетчатому полю в соответствии с заданной программой. Для записи программы используется следующая система команд:
1. U# - # раз сместиться на одну клетку вверх.
2. D# - # раз сместиться на одну клетку вниз.
3. R# - # раз сместиться на одну клетку вправо.
4. L# - # раз сместиться на одну клетку влево.
#{} – повторить # раз последовательность команд в скобках. Известно, что робот выполнил следующую программу:
25{ U3 R7 D5 L5 }
Сколько клеток поля робот посетил ровно 2 раза??

4.задание прикреплю в фото 2-3 номер

👇
Открыть все ответы
Ответ:
Хажижа
Хажижа
22.06.2021
Program t_1;   const size=100;   var a:array[1..size] of integer; i,n:integer;procedure quicksort(m1,t1:integer);   var i1,j1,x1,w:integer; begin   i1:=m1;   j1:=t1;   x1:=a[(m1+t1)div 2];   repeat      while a[i1]<x1 do inc(i1);      while a[j1]>x1 do dec(j1);      if i1<=j1 then          begin            w:=a[i1];                   a[i1]:=a[j1];              a[j1]:=w;                  inc(i1);                    dec(j1);             end      until i1>j1;      if m1<j1 then quicksort(m1,j1);      if i1<t1 then quicksort(i1,t1);end;begin    readln(n);    for i:=1 to n do       read(a[i]);    quicksort(1,n);    writeln(a[n]);end.
4,5(61 оценок)
Ответ:
GoYana0000
GoYana0000
22.06.2021
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

function LexRepeat(Self:string):(string,integer); extensionmethod;
begin
  Writeln(Self);
  var aw:=Self.MatchValues('\b\w+\b').ToArray;
  if aw.Count>1 then
    Result:=(aw[0],aw[1:].Where(w->LowerCase(w)=LowerCase(aw[0])).Count)
  else Result:=(aw[0],0)
end;

begin
  ReadLines('Pushkin2.txt').Select(s->s.LexRepeat)
      .Where(x->x[1]>0).Foreach(x->Writeln('*** ',x[0],' - ',x[1]+1,' ***'))
end.

Пример работы программы

Александр Пушкин
К***
Я помню чудное мгновенье:
Передо мной явилась ты,
Как мимолетное виденье,
Как гений чистой красоты.
В томленьях грусти безнадежной,
В тревогах шумной суеты,
Звучал мне долго голос нежный
И снились милые черты.
Шли годы. Бурь порыв мятежный
Рассеял прежние мечты,
И я забыл твой голос нежный,
Твои небесные черты.
В глуши, во мраке заточенья
Тянулись тихо дни мои
Без божества, без вдохновенья,
*** Без - 2 ***
Без слез, без жизни, без любви.
*** Без - 3 ***
Душе настало пробужденье:
И вот опять явилась ты,
Как мимолетное виденье,
Как гений чистой красоты.
И сердце бьется в упоенье,
И для него воскресли вновь
И божество, и вдохновенье,
*** И - 2 ***
И жизнь, и слезы, и любовь.
*** И - 3 ***

Во вложении - исходный файл Puskin2.txt
4,8(13 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ