PROGRAM CT63;
USES crt;
CONST g=9.8;
VAR h,v: REAL;
BEGIN
Write('Do cao h(m) : '); Readln(h);
v=sqrt(2*g*h);
Write('Van toc v cua vat la : ',v);
Readln
END.
Download: http://www.mediafire.com/?2pqogi765c2dvr7
USES crt;
CONST g=9.8;
VAR h,v: REAL;
BEGIN
Write('Do cao h(m) : '); Readln(h);
v=sqrt(2*g*h);
Write('Van toc v cua vat la : ',v);
Readln
END.
Download: http://www.mediafire.com/?2pqogi765c2dvr7