2.1 сколько информации можно записать в тетрадь на 12 листов? 1 строка = 31 байт, 1 лист = 40 строк. ответ: 2.2 сколько информации можно напечатать на листе а4? 1 строка = 10 байт, 1 лист = 50 строк. ответ: 2.3 сколько бит в пословице «без труда не выловишь и рыбку из пруда» ? ответ: 2.4 сколько байт в слове «информатика» ? ответ: 2.5 сколько кбайт во фразе «учиться, учиться и еще раз учиться» ? ответ:

2.1 14880 байт, или столько же символов. 
2.2 500 байт, или столько же символов.
2.3 304 бит. 
2.4 11 байт. 
2.5 0,033 кб. 

 

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. 

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.