В кодировке UTF-32 каждый символ кодируется 32 битами. Коля написал текст (в нём нет лишних пробелов):

«Эри, Айыр, Гурон, Восток, Онтарио, Виннипег — озёра».

Ученик вычеркнул из списка название одного из озёр. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд.

При этом размер нового предложения в данной кодировке оказался на 20 байтов меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название озера.

👇

Ответ:

bhgd

08.06.2022

Поскольку один символ кодируется четырьмя байтами, из текста удалили 5 символов. Заметим, что лишние запятая и пробел занимают восемь байтов. Значит, название озера, которое удалили из списка, должно состоять из 3 букв, поскольку (20 − 8) : 4 = 3 символа. Из всего списка только одно название озера состоит из 3 букв

ответ Эри

4,5(33 оценок)

Открыть все ответы

Ответ:

ponk4ik228778

08.06.2022

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
end;
n:=Length(s)
end;

var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.

4,7(84 оценок)

Ответ:

degorov152

08.06.2022

ответ: 4Объяснение:

Создаём массив из 11 элементов, который называем Dat:

целтаб Dat[1:11]

Объявляем переменные к и ш, являющимися целыми числами:

цел к, ш

Заполняем массив Dat:

Dat[1]:=21 Dat[4]:=19 Dat[7]:=23 Dat[10]:=29 Dat[2]:=23 Dat[5]:=25 Dat[8]:=21 Dat[11]:=19 Dat[3]:=20 Dat[6]:=22 Dat[9]:=22

Присваиваем переменной ш значение 0.

ш:=0

Объявляем цикл от 1 до 11, то бишь пробегаемся по массиву Dat и смотрим, если значение элемента больше 22, то прибавляем к переменной ш 1:

нц для к от 1 до 11 если Dat[к]>22 то ш:=ш+1 Все кц

Выводим на экран значение переменной ш:

вывод ш

Таким образом мы видим, что программа подсчитывает количество классов в которых больше 22 учеников. Таких классов будет 4: 2(23), 5(25), 7(23) и 10(29).

4,5(95 оценок)

Это интересно:

Хобби-и-рукоделие

14.09.2022

Как составить гранатомет своими руками: Подробная инструкция...

Образование-и-коммуникации

05.03.2022

Как эффективно учиться: советы для успешного обучения...

Компьютеры-и-электроника

02.02.2022

Как создать файл в формате PDF с помощью бесплатного приложения OpenOffice...

Дом-и-сад