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

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 em baixo  Mensagem [Página 1 de 1]

Kodo no Kami

avatar
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.


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum