r= 2.4; //distance between centre of the protons, fm r= r*(10^(-15)); //converting to m e= 1.6*(10^(-19)); //charge of an electron, C Po= 8.85*(10^(-12)); //Permittivity of free space, F/m K=1/(4*(%pi)*Po); //constant, N.m^2/C^2 F= K*(e^2)/(r^2); //N disp(F,"The repulsive force, in N, is: ") //Result // The repulsive force, in N, is: // 39.963576