!Read a positive integer ‘m’. Write a program to find out the number of digits in ‘m’. write(*,*)'enter the positive integer number=' read(*,*)m a=0 10 a=a+1 m=m/10 if (m.lt.1) goto 20 goto10 20 write(*,*)'the number of digits in ',m,'is=',a end