В одной из кодировок Unicode каждый символ кодируется 2 байтами При подготовке реферата по географии Петя написал следующий текст(в нем нет лишних пробелов)
"В состав Бразилии входят 26 штатов,среди которых Баия,Амала,Парана,Алагос,Амазонас,Токантис,Пернамбуку"
Затем Петя вычеркнул из списка название одного из штатов.Заодно он вычеркнул ставшие лишними запятые и пробелы-два пробела не должны идти подряд.При этом размер нового предложения в данной кодировке оказался на 144 бит меньше,чем размер исходного предложения.Напишите в ответе вычеркнутое название штата

👇

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

Ответ:

pamagiteplease

08.04.2021

Первая задачка.
Набрать кувшин 8 л.
Отлить 3 л во второй.
Вылить из него.
Из оставшихся 5 л в большом опять налить в маленький.
Вылить из него.
Остатки 2 л из большого налить в маленький.
Получится пустой большой и маленьки с 2 л.
Набрать снова полный большой.
Долить в маленький недостающий 1 л до трех.
В большом останется 7 л.

Вторая задачка решается аналогично.
Ставятся песочные часы и на 3 мин и на 8 мин
одновременно. Через 3 мин. маленькие часы
переворачиваются, большие продолжают работать,
таме ще 5 мин. Еще через 3 мин маленькие
переворачиваются, большие продолжают работать,
там еще 2 мин. Через 2 мин большие опустошились
и переорачиваются, а в маленьких еще 1 мин.
Через 1 мин маленькие опустошаются, а в
больших еще 7 мин. В это время включается варево.
Когда большие часы опустошились мин,
варево выключается.
Элекиср бессмертия готов.

4,6(50 оценок)

Ответ:

Animashka11

08.04.2021

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
if not (c in used) then
begin
    done := True;
    write(c);
end;

if not done then
write(0);

writeln;
end.

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

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

Дом-и-сад

13.12.2020

Простые способы удаления жевательной резинки с бетона...

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

11.10.2020

Как снять летсплей или как делать профессиональные видеоинструкции для YouTube?...

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

06.07.2021

Как спрятаться от школьных блокировок и зайти на YouTube...

Искусство-и-развлечения