pares ou impares

Publicado por Perfil removido 30/12/2007

[ Hits: 4.782 ]

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

Metodo de Ordenacion : Burbuja

cadastro de multiplos clientes com registro

soma de números pares

somatório de uma matriz 7x5

cadastro de um cliente com registro


  

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