Дан файл f, компоненты которого являются целыми числами. найти количество квадратов нечетных чисел среди компонент файла. записать это значение в начало нового файла g. остальные значения переписать из исходного файла f.

Var     n,s,x: integer;     f,g: file of integer; begin assign(f,'d: \f.txt'); reset(f); while not eof(f) do   begin   read(f,n);   x: =trunc(sqrt(n));   if (x*x=n) and (x mod 2=1) then s: =s+1;   end; assign(g,'d: \g.txt');   rewrite(g); write(g,s); reset(f); while not eof(f) do   begin   read(f,n);   write(g,n);   end; close(f); close(g); end.

Втер­ми­но­ло­гии сетей tcp/ip мас­кой сети на­зы­ва­ет­ся 32-раз­ряд­ная дво­ич­ная по­сле­до­ва­тель­ность, опре­де­ля­ю­щая, какая часть ip-ад­ре­са узла сети от­но­сит­ся к ад­ре­су сети, а какая – к ад­ре­су са­мо­го узла в этой сети. при этом в маске сна­ча­ла (в стар­ших раз­ря­дах) стоят еди­ни­цы, а затем с не­ко­то­ро­го места нули.адрес сети по­лу­ча­ет­ся в ре­зуль­та­те при­ме­не­ния по­раз­ряд­ной конъ­юнк­ции к за­дан­но­му ip-ад­ре­су узла и маске. обыч­но маска за­пи­сы­ва­ет­ся по тем же пра­ви­лам, что и ip-адрес – в виде четырёх бай­тов, причём каж­дый байт за­пи­сы­ва­ет­ся в виде де­ся­тич­но­го числа.при­мер. пусть ip-адрес узла равен 231.32.255.131, а маска равна 255.255.240.0. тогда адрес сети равен 231.32.240.0.  для узла с ip-ад­ре­сом 227.138.127.144 адрес сети равен 227.138.64.0. чему равен тре­тий слева байт маски? ответ за­пи­ши­те в виде де­ся­тич­но­го числа.по­яс­не­ние.12710  = 01111111206410  = 010000002за­ме­тим, что в маске во вто­ром бите слева долж­на сто­ять еди­ни­ца, а в тре­тьем бите слева — ноль. и так как мы знаем про маски, что в них сна­ча­ла идут еди­ни­цы, а потом нули, то по­лу­ча­ем, что тре­тий слева байт равен 110000002  = 19210 пра­виль­ный ответ: 192

1. перевод в шестнадцатиричную систему счисления. делим с остатком на основание системы счисления (16) до тех пор, пока частное не станет меньше основания системы (16). затем выписываем частное и вслед за ним в обратном порядке остатки. 2015 / 16= 125, остаток 15 125 / 16 = 7, остаток 13   записываем результат: 7 13 15 и заменяем каждое десятичное число его 16-ричным аналогом, получая 7df 2. теперь переводим шестнадцатиричное число в восьмеричное. поскольку записываем вместо каждой 16-ричной цифры её четырехразрядное двоичное представление (тетраду), а потом справа налево группируем разряды по три (в триады). и последнее - вместо каждой триады записываем соответствующую восьмеричную цифру. 7df(16) = 0111 1101 1111(2) =  011 111 011 111(2) = 3737(8) ответ: 2015(10) = 7df(16) = 3737(8)