pares ou impares

Publicado por Perfil removido 30/12/2007

[ Hits: 4.632 ]

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

Soma dois Valores e exibe o resultado

Loops

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Calculadora Básica

Programa lê nome (básico) - Pascal para iniciantes


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts