pares ou impares

Publicado por Perfil removido 30/12/2007

[ Hits: 4.903 ]

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

Tocador de Vídeo (Lazarus)

Mcd de una serie de numeros

Sequência de Fibonacci

Fibonacci (Pascal)

Matrix


  

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