Linux slogan
Visite também: Segurança Linux · BR-Linux.org · Dicas-L · Doode · NoticiasLinux · SoftwareLivre.org · UnderLinux



» Screenshot
Linux: TUDO AZUL....
Por ZIPPO
» Login
Login:
Senha:

Se você ainda não possui uma conta, clique aqui.

Esqueci minha senha



Scripts

Linux user

Publicado por Joana Silva em 30/12/2007    [ 2660 hits ]

Login: joanaQWP, 103235 pontos

   


Descrição

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

[ Download: 1312E2.PAS ]   [ Enviar nova versão ]

[ 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
   Script Linux recomendado Executar comando do DOS.
   Script Linux recomendado vendas de uma empresa em matriz
   Script Linux recomendado soma da diagonal principal de uma matriz
   Script Linux recomendado cadastro de um cliente com registro
   Script Linux recomendado calculo de porcentagem em vetores

Comentários
Nenhum comentário foi encontrado.

Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.