Var
x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
writeln('P=',p);
writeln('S=',s);
<span>end.</span>
Я всегда ношу папку я с ней хожу на английский язык и рисование. Я иду с папкой в школу я занимаюсь в нам учительница даёт правила и мы их складываю в файлы. Я иду домой и достаю с файла бумажку и делаю. Я сделал уроки начал играть на комьпьюторе я поиграл пол часа и луг спать.
Может быть reset?это сброс .но 5 букв...
Uses crt;
var s,t,s1,s2:string;
k,i:integer;
begin
readln(s);
readln(t);
k:=pos(' ',s)+1;
t:=t+' ';
insert(t,s,k);
writeln(s);
end.
"Классика жанра" - выбор одного варианта из двух возможных. <u>1 бит информации</u> (фактически, это и есть определение 1 бита).