Если маска подсети 255.255.255.240 и ip-адрес компьютера в сети 192.168.156.235 то номер комьпьютера в сети равен

192,168,156,224, если я правильно понял суть

1)

program circles;

uses crt;

const pi=3.14;

var s,r: real;

begin

      clrscr;

      write('введите радиус r: ');

      readln(r);

      s: =pi*(r*r);

      writeln('площадь круга равна: ',s);

end. 

 

2)

program triangles;

uses crt;

var s,a,h: real;

begin

      clrscr;

      write('введите высоту треугольника  h: ');

      readln(h);

      write(' введите сторону  треугольника  а: ');

      readln(a);

      s: =0.5*a*h;

      writeln('площадь треугольника равна: ',s);

end. 

 

3)

program trapezoids;

uses crt;

var s,a,b,h: real;

begin

      clrscr;

      write('введите высоту трапеции  h: ');

      readln(h);

      write(' введите сторону   трапеции   а: ');

      readln(a);

      write(' введите сторону   трапеции   b: ');

      readln(b);

      s: =0.5*(a+b)*h;

      writeln('площадь трапеции  равна: ',s);

end. 

 

 

 

program matr22;  

uses crt;

type matrix=array[1..5,1..5] of integer;

var m: matrix;

          n: byte;

 

 

procedure auto; var i,j: integer; begin

n: =0; randomize;   for i: =1 to 5 do begin  for j: =1 to 5 do begin      m[i,j]: =random(50)+5;

      if (m[i,j]=22) then n: =n+1; end; end; end;  

 

 

procedure printmatrix(mas: matrix; ); var j,k: integer; begin  for k: =1 to 5 do begin  for j: =1 to 5 do begin  write(mas[k,j]: 3); end; writeln; end; end;

 

 

begin

      clrscr;

      auto;

      printmatrix(m);

      writeln;

      writeln('количество элементов равных 22: ',n);

      readkey;  

end.