Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
Электронную таблицу в Excel, определяющую по введенному коду региона России полное название данного см файл
Microsoft word- тек редактор
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
28,97(10)=33,76(8)=11011,111010(2)
Обратно в 10сс 33,76=3*8+3+7*1/8+6*1/64=28,97