Pascal

[Rodrigolyveira]

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?

[Rodrigolyveira]

Nossa, ninguém?

[Visitante]

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.