Куртки
Благотворительные организации каждый год собирают деньги на теплую одежду бедным. У главного героя этой задачи есть целых две куртки, но это не мешает ему страдать. Одна из его курток — зимняя, а вторая — демисезонная (в ней приятно ходить осенью или весной). Куртки подобраны идеально: в зимней куртке комфортно при температуре в x градусов или ниже, а в демисезонной – при температуре выше x градусов. В общем, жить бы ему и радоваться. Но откуда бы тогда появиться задаче?
Проблема нашего героя в том, что он, надевая сегодня не ту куртку, которую носил вчера, постоянно забывает переложить проездной, ключи и прочие полезные вещи в карман новой куртки. Немного подумав, он решил, что не совсем подходящая к сегодняшней температуре куртка — это не так плохо, как забытые вещи. Поэтому, если сегодня незначительно теплее, чем граничная температура, он все равно пойдет в зимней куртке, аналогично для демисезонной. Чуть более формально это звучит так: он меняет куртку с зимней на демисезонную, только если сегодня за окном есть хотя бы x+d градусов, а с демисезонной на зимнюю — если за окном x−d градусов или холоднее. Иногда ему, конечно, не очень комфортно на улице, но зато все вещи точно с собой.
По архиву прогноза погоды за последние n дней определите, сколько дней главному герою этой задачи было некомфортно. Считается, что в первый день он вышел в той куртке, в которой в этот день комфортно.
Входные данные
В первой строчке даны два вещественных числа x и d — граница температуры между куртками и отклонение температуры, которое герой задачи считает незначительным (−89≤x≤55,1≤d≤6).
Во второй строчке дано целое число n, 1≤n≤105 — количество дней в архиве прогноза погоды.
В третьей строчке перечислены n вещественных чисел ti — температура в i-й день (−89≤ti≤55).
Выходные данные
Выведите одно число: количество дней, в которые герою задачи было некомфортно в той куртке, в которой он вышел в этот день
begin
odd:=0;
even:=1;
writeln ('Введите число N');
read(N);
writeln('Введите N целых чисел');
for i:=1 to N do
begin
read(a);
if (a mod 2 = 0) then even:=even*a
else odd:=odd+a;
end;
writeln('Произведение чётных чисел равно ', even);
writeln('Сумма нечётных чисел равна ', odd);
end.
2)var N, plus, minus, i: integer;
a: real;
begin
plus:=0;
minus:=0;
writeln ('Введите число N');
read(N);
writeln('Введите N чисел');
for i:=1 to N do
begin
read (a);
if(a > 0) then plus:=plus+1;
if (a < 0) then minus:=minus+1;
end;
writeln('Количество положительных чисел равно ', plus);
writeln('Количество отрицательных чисел равно ', minus);
if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);
if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');
end.
Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком.
Какой длины должен быть двоичный код, чтобы с его можно было закодировать васе символы клавиатуры компьютера?
Достаточный алфавит
В алфавит мощностью 256 символов можно поместить практически все символы, которые есть на клавиатуре. Такой алфавит называется достаточным.
Т.к. 256 = 28, то вес 1 символа – 8 бит.
Единице в 8 бит присвоили свое название - байт.
1 байт = 8 бит.
Таким образом, информационный вес одного символа достаточного алфавита равен 1 байту.
Для измерения больших информационных объемов используются более крупные единицы измерения информации:
Единицы измерения количества информации:
1 байт = 8 бит
1 килобайт = 1 Кб = 1024 байта
1 мегабайт = 1 Мб = 1024 Кб
1 гигабайт = 1 Гб = 1024 Гб
Информационный объем текста