Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
<span>end.</span>
var
xa, ya,xb, yb, AB: real;
begin
writeln ('Введите координаты точки А');
readln (xa, ya);
writeln ('Введите координаты точки B');
readln (xb, yb);
AB:= sqrt(sqr(xa-xb)+sqr(ya-yb));
writeln('|AB|=', AB:3:1);
end.
Допустим у нас в текстовом документе 1536 символов,1536 единиц в десятичной системе.
1536 символов = 1.536 килобайт =1.5 килобайт
1 символ = 1 байт
1000 байт = 1 килобайт
Одна цифра в двоичном коде = 1 байт
Немного попутал я, извиняюсь, теперь правильно.