pares ou impares

Publicado por Perfil removido 30/12/2007

[ Hits: 4.889 ]

Download 1312E2.PAS




Verifica se o número é par ou ímpar.

  



Esconder código-fonte

program exercicio2;

var x:integer;
    resto:real;
function par(x:integer):real;
begin
     resto:=x mod 2;
     if resto=0
     then writeln('o numero ',x,' e par')
     else if resto<>0
     then writeln('o numero ',x,' nao e par');
end;

begin
    clrscr;
    writeln('digite um n§ ');
    readln(x);
    par(x);
    readln;
end.

Scripts recomendados

armazenar estoque em uma matriz

jogo bobo testando com case

Visualizador de imagem Pascal/Lazarus

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Jogo Sudoku em Pascal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts