Проснулся
Встал с кровати
Пошел в туалет
Зашёл вк
Поставил чай и сделал бутеров
Затем собрал портфель
После пошёл покушал
Одел школьную форму и пошёл на остановку
Сел и поехал
Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).
Всего 1508 цифр. начинаем с 4. тогда будем считать количество однозначных, двухзначных и трёхзначных номеров у страниц.
5, 6, 7, 8, 9 - всего 5, тогда 1508 - 5 = 1503 стр. не указал 4, так как на ней начинается первая глава. её и добавим с главами в конце.
теперь ряд 10, 11, 12 .. 97, 98, 99, в котором 90 двухзначных чисел, тогда
1503 - 90*2 = 1503 - 180 = 1323.
так как в ряду 100..999 много чисел, то просто разделим 1323 на 3 и получим 441.
теперь считаем
441(трёхзн) + 90(двухзн) + 5(однозн) + 3(нач) + 1(кон) + 6(главы) = 546 страница в книге.
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.
Нужно разбить на 4 группы по 8 бит и перевести в 10 систему
11001100
10011000
10111110
01000111
204.152.94.71
