Cоставить алгоритм на блок схеме

y=x^3+2x^2+8

Для измерения длины есть такие единицы, как миллиметр, сантиметр, метр, километр. Известно, что масса измеряется в граммах, килограммах, центнерах и тоннах. Бег времени выражается в секундах, минутах, часах, днях, месяцах, годах, веках. Компьютер работает с информацией и для измерения ее объема также имеются соответствующие единицы измерения.

Мы уже знаем, что компьютер воспринимает всю информацию через нули и единички. Бит – это минимальная единица измерения информации, соответствующая одной двоичной цифре («0» или «1»).

Байт состоит из восьми бит. Используя один байт, можно закодировать один символ из 256 возможных (256 = 28). Таким образом, один байт равен одному символу, то есть 8 битам:

1 символ = 8 битам = 1 байту.

Изучение компьютерной грамотностипредполагает рассмотрение и других, более крупных единиц измерения информации.

Бит является значением 0 или 1

Полбайта

Полбайта составляется 4 бита

Байт

Байт равен 8 битам

Килобайт (КБ)

Килобайт это 1024 байт

Мегабайт (МБ)

Мегабайт это 1.048.576 байт или 1024 Килобайт

Гигабайт (ГБ)

Гигабайт = 1.073.741.824 байт, 1.024 Мегабайт, 1.048.576 Килобайт

Терабайт (ТБ)

1 Терабайт равен 1.099.511.627.776, 1.024 Гигабайт, 1.048.576 Мегабайт

Петабайт (ПБ)

Петабайт это 1.125.899.906.842.624 байт, 1.024 терабайт, или 1.048.576 гигабайт

Эксабайт (ЭБ)

Эксабайт это 1.152.921.504.606.846.976 байт, 1.024 петабайт, или 1.048.576 терабайт

Зеттабайт (ЗБ)

Зеттабайт равен 1.180.591.620.717.411.303.424 байт, 1.024 эксабайт, или 1.048.576 петабайт

Йоттабайт (ЙБ)

Йоттабайт = 1.208.925.819.614.629.174.706.176 байт, 1.024 зеттабайт, или 1.048.576 эксабайта

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=MatrixRandom(7,7,0,9);
  var k:=0;
  for var i:=0 to 6 do begin
    for var j:=0 to 6 do begin
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

Тестовое решение:
  2  1  7  3  3  2  7
  9  2  9  2  0  5  5
  4  2  6  9  4  6  0
  1  0  3  5  4  5  9
  6  3  6  0  2  0  8
  0  8  4  3  2  1  8
  6  0  4  4  5  4  0
Кол-во элементов на [1,5]: 27

Вариант "совсем для школы"

const
  n=7;
var
  a:array[1..n,1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10);
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.