Те, кто шарят в exсel'е, закончить тест. 1) как записать ссылку на константу в ячейке d4 листа "январь" книги 1 a. [книга 1] январь! d4 b. [книга 1]! январь $d4 c. [январь]! книга 1 $d$4 d. [книга 1] январь! $d$4 2) в ячейку с адресом с1 занесена формула =если(и(а1> 10; а1< 15); 1; 0 чему может быть равно значение в ячейке а1, если значение в ячейке с1 равно 1 a. 10 b. 16 c. 5 d. 13 3)при копировании не изменится адрес ячейки: a. $ag$8 b. $g8 c. ag8 d. g$8 так же не смог с одним , здесь есть вариант "161 байт". проверяя на сайте, мне выдало только "162 байта". 4) считая, что форматом кодирования является байт, определите объем информации в предложении: «кто рассчитывает обеспечить себе здоровье, пребывая в лени, тот поступает так же глупо, как и человек, думающий молчанием усовершенствовать свой голос. плутарх». a. 153 байта b. 161 байт c. 151 байт d. 166 байт
Ответы
begin
var n := ReadInteger;
var L := new List<(integer, integer)>;
loop n do
begin
L.Add(ReadInteger2)
end;
var k := L.Count;
L := L.Distinct.ToList; // этап 1
var k1 := L.Count;
Print(k - k1);
(k, k1) := (k1, 0); // этап 2
var St := new Stack<integer>;
var m := L.First[0]; // время
for var i := 1 to k - 1 do
if L[i][0] <= m then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][0];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Print(k1);
(k, k1) := (L.Count, 0); // этап 3
m := L.First[1]; // температура
for var i := 1 to k - 1 do
if Abs(L[i][1] - m) > 10 then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][1];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Println(k1);
end.
Пример610 58 58 58 512 2513 102 1 1
begin
var n := ReadInteger;
var L := new List<(integer, integer)>;
loop n do
begin
L.Add(ReadInteger2)
end;
var k := L.Count;
L := L.Distinct.ToList; // этап 1
var k1 := L.Count;
Print(k - k1);
(k, k1) := (k1, 0); // этап 2
var St := new Stack<integer>;
var m := L.First[0]; // время
for var i := 1 to k - 1 do
if L[i][0] <= m then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][0];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Print(k1);
(k, k1) := (L.Count, 0); // этап 3
m := L.First[1]; // температура
for var i := 1 to k - 1 do
if Abs(L[i][1] - m) > 10 then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][1];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Println(k1);
end.
Пример610 58 58 58 512 2513 102 1 1Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выполните сложение, умножение в двоичной системе счисления 1111 и1011
Поставьте вместо знака во нужные символы: 12--2 3--1 АБ--В КОМ--Н 1345Р-4С 2РОГ--?
Вкаких ситуациях представлять информацию в виде таблицы
2 - d
3 - a
4 - b
4-е спорное, в каждой кодировке символ занимает разное кол-во байт, но будем считать, что здесь 161 байт.