Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  .f
Language: FORTRAN
Code:
PROGRAM 4_MINI_DOMACI
PRINT*,N=60, M=30
CALL KEKS_I_COKOLADA(60, 30)
PRINT*,R=VRACENA VREDNOST
END
FUNCTION KEKS_I_COKOLADA(60,30)
IF ((ARS (N-M)).LT.10)THEN 
KEKS_I_COKOLADA=2x60
ELSE
KEKS_I_COKOLADA=2x30
ENDIF
RETURN
END     
Comments: