Всем) пож-та с . найти и распечатать строку заданной целочисленной матрицы размером 10х10, в которой длина максимальной серии минимальна. (серия-последовательность одинаковых элементов. длина серии-количество одинаковых элементов) паскаль) заранее ))

var 

    i, j, minlen, ind, count, countrow: ineteger;

    a: array[10, 10] of integer;

   

 

begin

    for i: =1 to 10 do

      for j: =1 to 10 do

          readln(a[i,j]);

    ind: =1;

    minlen: =11;

    for i: =1 to 10 do

    begin

      count: =1;

      countrow: =1;

      for j: =2 to 10 do

      begin

            if (a[i,j]=a[i,j-1]) then

                inc(count)

            else

            begin

                if (count> countrow) then 

                  countrow: =count;

                count: =1;

            end;

      end;

      if (countrow< minlen) then

      begin

          minlen: =countrow;

          ind: =i;

      end;

    end;

    for j: =1 to 10 do

      writeln(a[ind,j])

end.

Маска подсети показывает, какие биты адреса относятся к адресу сети, а какие - к адресу внутри сети. переводим в двоичную систему счисления маску: 255.255.255.240 = 11111111.11111111.11111111.11110000 там, где стоят 1, биты адреса компьютера относятся к адресу сети, где 0 - внутри сети. так как нас интересует адрес внутри сети, то нужно смотреть, чему равны последние 4 бита адреса (там в маске нули). 235_10 = 11101011_2 последние 4 бита = 1011_2 номер компьютера в сети 1011_2 = 11_10. ответ: 11

№1

program fff;

var a, b, c: integer;

begin

writeln('введите первое число');

readln(a);

b:=a+1;

c:=a+2;

writeln(a);

writeln(b);

writeln(c);

end.

№2

program fff;

var r, o, p: integer;

begin

writeln('введите длину ребра');

readln(r);

o:=r*r;

o:=r*o;

p:=r*r;

writeln('объем куба=',o);

writeln('площадь стороны=',p);

end.

№3

program fff;

var ch, a, b, c, su, pr: integer;

begin

writeln('введите трехзначное число');

read(ch);

a:= ch div 100;

b:=ch mod 10;

c:= ch div 10;

c:= c mod 10;

su:=a+b+c;

pr:=a*b*c;

writeln('сумма=',su);

writeln('произведение=',pr);

end.