Напишите сообщение по информатике 7 класс по теме"первое поколение компьютеров"​

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

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;

Const   m = 6;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of integer;   i, j, p, pmax, imax: integer;   flag: boolean; begin   {1}   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81) - 40;           write(a[i, j]: 4)       end;       writeln   end;   {2}   writeln('произведения построчно');   for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       writeln(i, ': ', p: 9)   end;   {3}   pmax : = -maxint;   writeln('максимальное построчное произведение');     for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       if pmax < p then       begin           pmax : = p;           imax : = i;       end   end;   writeln(imax, ': ', pmax: 9);   {4}   for i : = 1 to m do b[i] : = a[i, 1];   for i : = 2 to m do   begin       p : = b[i];       j : = i - 1;       flag : = false;       while (j > 0) and (not flag) do           if p < b[j] then           begin               b[j + 1] : = b[j];               j : = j - 1           end           else flag : = true;       b[j + 1] : = p   end;   writeln('отсортированный первый столбец');   for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив   -27    4    3  14   15  40 -39 -27   40 -40 -40 -24   -38    7  18    1   17  27  29  -9   10 -32  38    0 произведения построчно 1:         -4536 2:       631800 3:   -1536000 4:         -4788 5:     -119799 6:                 0 максимальное построчное произведение 2:       631800 отсортированный первый столбец -38 -27   10   15   17   40