https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmero_e_seus_nomes&feed=atom&action=history F90: Número e seus nomes - Revision history 2024-03-29T01:40:00Z Revision history for this page on the wiki MediaWiki 1.26.2 https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmero_e_seus_nomes&diff=288&oldid=prev Adonaimedrado: New page: == Problema == Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso. == Solução == <code lang="fortran"> PROGRAM aula2e6 IMPLI... 2008-09-09T11:07:22Z <p>New page: == Problema == Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso. == Solução == &lt;code lang=&quot;fortran&quot;&gt; PROGRAM aula2e6 IMPLI...</p> <p><b>New page</b></p><div>== Problema ==<br /> Fazer um programa capaz de solicitar um número N (entre 1 e 10) ao usuário e exibir este número por extenso.<br /> <br /> == Solução ==<br /> &lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula2e6<br /> IMPLICIT NONE<br /> INTEGER :: N <br /> WRITE (*,*) &quot;Digite o número N: &quot;<br /> READ (*,*) N <br /> <br /> SELECT CASE (N)<br /> CASE (1)<br /> WRITE (*,*) &quot;Um&quot;<br /> CASE (2)<br /> WRITE (*,*) &quot;Dois&quot;<br /> CASE (3)<br /> WRITE (*,*) &quot;Três&quot;<br /> CASE (4)<br /> WRITE (*,*) &quot;Quatro&quot;<br /> CASE (5)<br /> WRITE (*,*) &quot;Cinco&quot;<br /> CASE (6)<br /> WRITE (*,*) &quot;Seis&quot;<br /> CASE (7)<br /> WRITE (*,*) &quot;Sete&quot;<br /> CASE (8)<br /> WRITE (*,*) &quot;Oito&quot;<br /> CASE (9)<br /> WRITE (*,*) &quot;Nove&quot;<br /> CASE (10)<br /> WRITE (*,*) &quot;Dez&quot;<br /> CASE DEFAULT<br /> WRITE (*,*) &quot;Desconhecido&quot;<br /> END SELECT<br /> END PROGRAM aula2e6<br /> &lt;/code&gt;</div> Adonaimedrado