Ir para conteúdo
Fórum Script Brasil
  • 0

Pascal


Rodrigolyveira

Pergunta

Problema: Ler dois números (inicial e final, sendo que o final não pode ser menor do que o numero inicial). Escreva quantos números pares e quantos números ímpares encontram-se entre os dois números fornecidos pelo usuário.

O que eu já fiz:

program par_impar_rodrigo;

var

inicio, fim, par, impar: real;

begin

write ('Digite aqui o numero inicial ');

readln(inicio);

write ('Digite aqui o numero final, sendo maior que o inicial');

readln(fim);

par:=0;

impar:=0;

while (inicio < fim) do

begin

if (inicio < fim) then

begin

if (inicio mod 2 = 0) then

par := par+1

else

impar:= impar+1;

end;

inicio := inicio+1;

//AQUI DA ERRO!!

else

begin

writeln('Numero incorreto. Favor digite novamente o numero final, maior que o inicial');

fim := fim - 1;

end;

end;

end;

writeln('Numeros pares.: ',par:4:2);

writeln('Numeros impares.: ',impar:4:2);

writeln('...Pressione qualquer tecla para encerrar...');

readln();

end.

Não acho que a lógica está errada.. Mas não consigo prosseguir quando chega no (else), alguém me ajuda?

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Olá amigo.

Penso que sei o que está provocando o erro.

você esta usando a função mod com o intuito de retornar o resto de uma divisão. Até ai está tudo bem, entretanto, este comando só deve ser utilizado para retornar o resto de uma divisão de numeros inteiros.

Bons Estudos.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...