https://www.adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_N%C3%BAmeros_pares_interativo 2026-05-27T09:55:49Z Revision history for this page on the wiki MediaWiki 1.26.2 https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmeros_pares_interativo&diff=287&oldid=prev 2008-09-09T10:59:01Z

<p>‎<span dir="auto"><span class="autocomment">Solução</span></span></p> <table class='diff diff-contentalign-left'> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr style='vertical-align: top;' lang='en'> <td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td> <td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 10:59, 9 September 2008</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l18" >Line 18:</td> <td colspan="2" class="diff-lineno">Line 18:</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> DO</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> DO</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> WRITE (*,*) C</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> WRITE (*,*) C</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> WRITE (*,*) &quot;Digite 1 para exibir o próximo número<del class="diffchange diffchange-inline">, zero para finalizar</del>: &quot;</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> WRITE (*,*) &quot;Digite 1 para exibir o próximo número: &quot;</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> READ (*,*) R</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> READ (*,*) R</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> IF (R/=1) EXIT </div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> IF (R/=1) EXIT </div></td></tr> </table>

Adonaimedrado https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_N%C3%BAmeros_pares_interativo&diff=286&oldid=prev 2008-09-09T10:58:23Z

<p>New page: == Problema == Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números. == Solução == &lt;code lang=&quot;fortran&quot;&gt; PROGRAM...</p> <p><b>New page</b></p><div>== Problema ==<br /> Fazer um programa capaz de informar os números pares a partir de N até que o usuário informe que não deseja mais números.<br /> <br /> == Solução ==<br /> &lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula2e5<br /> IMPLICIT NONE<br /> INTEGER :: N, C, R <br /> WRITE (*,*) &quot;Digite o número N: &quot;<br /> READ (*,*) N <br /> <br /> IF (MOD(N,2) /= 0) THEN<br /> C = N+1<br /> ELSE<br /> C = N<br /> END IF<br /> <br /> DO<br /> WRITE (*,*) C<br /> WRITE (*,*) &quot;Digite 1 para exibir o próximo número, zero para finalizar: &quot;<br /> READ (*,*) R<br /> IF (R/=1) EXIT <br /> C = C + 2<br /> END DO<br /> END PROGRAM aula2e5<br /> &lt;/code&gt;</div>

Adonaimedrado