path: root/3769/CH3/EX3.14/Ex3_14.sce

clear
//Given
m=9*10**9
q=1.6*10**-19
r=10**-10

//Calculation
U=m*q**2/r
K=U/2.0

//Result
printf("\n Kinetic energy is  %0.3f  J",K)