Сообщение _, если с его можно решить необходимые вам задачи.
(Варианты ответа)
1) полно.
2)полезно.
3)актуально.
4)достоверно.
5)объективно.
6)понятно.

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.

2)

var a,b,c: integer;

begin

  read(a,b,c);

  writeln('3 - ',100-a-b-c);

end.

3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

площадь находится по формуле герона

4)var a: integer;

begin

  read(a);

  writeln('plowad grani = ',a*a);

  writeln('plowad polnoj pov= ',a*a*6);

  writeln('objem= ',a*a*a);

end.

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.