Pascal Triangle Surface Formula
Triangle Surface Formula
Program Smetka;
Var a,b:real;
Begin
Write('a=');
Read(a);
Write('b=');
Read(b);
S:=(a*b)/2;
Writeln('S=',S:6:4);
End.
CODE
LIBARY.COM
Program Smetka;
Var a,b:real;
Begin
Write('a=');
Read(a);
Write('b=');
Read(b);
S:=(a*b)/2;
Writeln('S=',S:6:4);
End.