seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [source] ler um numero imprimir qnt par e impar

[source] ler um numero imprimir qnt par e impar

Ir para baixo  Mensagem [Página 1 de 1]

Kodo no Kami

Kodo no Kami
master
master

Código:
(*
  autor: kõdo no kami
  data: 27/05/2014
  forum: http://endoffile.umforum.net

  algoritmo que leia um conjunto de números (X) e imprima a quantidade de números pares (QNP) e a quantidade
  de números impares (QNI) lidos. Admita que o valor 9999 é utilizado como sentinela(ponto de parada)para fim de leitura
*)

program endoffile;

var numero, par, impar, cont: integer;
begin
    cont := 1;
    par := 0;
    impar := 0;

    //loop
    while cont = 1 do
    begin
        //entrada de dados
        write('digite o numero: ');
        read(numero);

        //compara o modulo para ver se é 0 se for é par
        if((numero mod 2) = 0)then
        begin
              par := par + 1;
        end
        //caso nao seja par é impar
        else
        begin
              impar := impar + 1;
        end;

        //para o loop caso o numero seja 9999
        if(numero = 9999) then
        begin
              cont := 0;
        end;
    end;

    //exibe a qnt de numeros par e impar
    writeln('qnp = ',par);
    writeln('qni = ',impar);
end.

https://endoffile.umforum.net

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Desktop » Pascal / Delphi » [source] ler um numero imprimir qnt par e impar

Permissões neste sub-fórum
Não podes responder a tópicos