Run Code  | API  | Code Wall  | Misc  | Feedback  | Login  | Theme  | Privacy  | Patreon 

ANIRUDDHA

!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

 run  | edit  | history  | help 1