No1 В одной из кодировок Unicode каждый символ кодируется 16 битами.
Петя написал текст (в нем нет лишних пробелов):
« Уж, эму, лиса, выдра, барсук, опоссум, дикобраз, орангутанг Дикне Животные
Ученик вычеркнул из списка название одного из животных. Заодно он вычеркнул став-
шие лишними запятые и пробелы два пробела не должны идти подряд.
При этом размер нового предложения в данной кодировке оказался на 16 байт меньше,
чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.

👇

Увидеть ответ

Ответ:

Zarinka952

04.11.2022

Барсук

Объяснение:

Символ кодируется 16 битами, то есть 2 байтами

Разница в 16 байт => вычеркнули 16/2=8 символов

Вычеркивание лишних запятой и пробела уже удаляет 2 символа. Остается 6 символов на название животного.

Из 6 символов у нас тут только барсук.

4,8(9 оценок)

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

Ответ:

Sultikutan

04.11.2022

1) Независимо от условия будет выполнен оператор присваивания.
a:=b
2) Условие ложное, значит будет выполнен оператор после else
write('b')
3) Условие истинное, значит будет выполнен оператор после then
write('a')
4) Функции операторов присваивания одинаковы, значит не зависят от условия (a + b - 14 = b - 14 + a)
a := a + b - 14
5) Оператор a := a практически ничего не изменяет, значит можно избавится от него
if a<b then a:=b
6) То же самое, что и в пункте 5, только нужно поменять истину на ложь
if not(a>b) then a:=b
7) Остаток деления на 2 не может быть равен трем, значит условие всегда ложно. Else нет, значит условный оператор можно смело откинуть
8) Остаток от деления на может быть равен или 0 или 1, значит в любом случае условие истинно. Первый условный оператор можно смело откинуть, но вложеннный остается!
if a<0 then a:=-a
9) Если a отрицательное, тогда b = a, то есть тоже отрицательно. Если a неотрицательное, тогда b = -a, то есть b отрицательное. Можно записать как модуль числа a, умноженный на -1
b := -abs(a)

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

Ответ:

mebelru

04.11.2022

Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
tpos := 0;
text := '';
while(tpos = 0) do begin
readln(buffer);
text += buffer;
tpos := pos('.',buffer)
end;
lastpos := 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
biggest := tpos-1; lastpos := tpos+1;
while(not (tpos = 0)) do begin
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
if (tpos-lastpos) > biggest then
biggest := tpos-lastpos;
lastpos := tpos+1;
end;
lastpos := 1; counter := 0;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
while(not (tpos = 0)) do begin
if (tpos-lastpos) = biggest then
counter += 1;
lastpos := tpos + 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
end;
writeln(counter);
end.

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

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

Питомцы-и-животные

24.05.2022

Как острить овцу: советы для фермеров и любителей животных...

Кулинария-и-гостеприимство

05.10.2020

Как хранить тыкву: сохраняем вкус и пользу на долгое время...

Семейная-жизнь

11.11.2020

Как восстановиться после аборта: полезные советы и рекомендации...

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