Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
EXERCISE
PROGRAM TEST_01 IMPLICIT NONE INTEGER::N=24 IF(MOD(N,2)==0)THEN PRINT*,N,'IS EVEN' PRINT*,'THE NUMBER IS',N PRINT*,'THE CUVE NUMBER IS N**3' ELSE PRINT*,N,'IS ODD' PRINT*,'THE NUMBER IS',N PRINT*,'THE SQUARE NUMBER IS N**2' END IF END PROGRAM TEST_01
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Exercicio 1
Quardratic equation solve
LU gauss
Title
Exercise
NEWTON SECOND LAW
Sudoku
DO WHILE DO
testcompiler.f90
SIUM(3.5)
Please log in to post a comment.