var a,b,c,s,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s:0:2);
end.
Вроде так
Первое 3)3 потому что 3<4 3>1 и не равно 2
Второе 4)4 потому что 4>1;2 и не равно 3
Если дракону сто лет или меньше, то у него 3N голов.
Если ему больше ста лет, то у него 300+2(N-100) голов.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1