Написать программу считающую количество чисел оканчивающихся на 5 и 7 в ряду от 1 до 300

Задача 1. Получено сообщение, информационный объем которого равен 32 битам. чему равен этот объем в байтах?

Решение: В одном байте 8 бит. 32:8=4

ответ: 4 байта.

Задача 2. Объем информацинного сообщения 12582912 битов выразить в килобайтах и мегабайтах.

Решение: Поскольку 1Кбайт=1024 байт=1024*8 бит, то 12582912:(1024*8)=1536 Кбайт и

поскольку 1Мбайт=1024 Кбайт, то 1536:1024=1,5 Мбайт

ответ:1536Кбайт и 1,5Мбайт.

Задача 3. Компьютер имеет оперативную память 512 Мб. Количество соответствующих этой величине бит больше:

1) 10 000 000 000бит 2) 8 000 000 000бит 3) 6 000 000 000бит 4) 4 000 000 000бит Решение: 512*1024*1024*8 бит=4294967296 бит.

ответ: 4.

Задача 4. Определить количество битов в двух мегабайтах, используя для чисел только степени 2.

Решение: Поскольку 1байт=8битам=23битам, а 1Мбайт=210Кбайт=220байт=223бит. Отсюда, 2Мбайт=224бит.

ответ: 224бит.

Задача 5. Сколько мегабайт информации содержит сообщение объемом 223бит?

Решение: Поскольку 1байт=8битам=23битам, то

223бит=223*223*23бит=210210байт=210Кбайт=1Мбайт.

ответ: 1Мбайт

Задача 6. Один символ алфавита "весит" 4 бита. Сколько символов в этом алфавите?

Объяснение:

//PascalABC.NET

var
  A: array [1..15] of integer;
  i, sum, n: integer;
begin
  for i := 1 to 15 do
  begin
    A[i] := random(1001)-500;
    write(A[i], ' ');
  end;
  writeln;
 
  for i := 2 to 14 do
    if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
    begin
   
   sum := 0;
  n := A[i]; 
  while ( n<>0 ) do
  begin
    sum := sum + (n mod 10);
    n := n div 10;
    if n in [-9 .. -1] then
    begin
      if sum - abs(n) < 0 then
        sum := abs(sum) - abs(n)
      else
        sum := sum - abs(n);
      break;
    end;
  end;   
   writeln('Сумма цифр числа ', A[i], ' = ', sum);
  end;
end.