numeros pares e impares

[quel 0]

ola pessoal sera que esse algoritmo que resolvi esta certo?Ler 200 numerps e imprimir quantos sao pares e quantos sao imparesCodeinicioconta: numerico para conta de 0 ate 200 passo 2 faça escreva : conta leia:contafim para para conta de 0 ate 200 passo 1 faça escreva conta leia conta fim parafim Obrigada

[JQuadros 0]

Olha só, se você quer obter os números pares, você pode começar do n° "0". Mas para obter os ímpares, basta começar do "1". Por que "0" é pár. E se adicionar uma variável para "pár" e uma para "ímpar" fica mais fácil.

 

 

varconta,num:inteiroinicio// Seção de Comandosescreval(" Numeros Pares:")para conta de 0 ate 200 passo 2 facaescreval(conta)fimparaescreval (" Números Impares")para num de 1 ate 200 passo 2 facaescreval (num)fimparafimalgoritmo

[Pantoja 5]

Cara a primeira pergnta para resolver seu prob é: O que faz um numero ser par?Para o num ser par você deve dividi-lo por 2 e se o resto for zero ai você garante que o numero digitado é par caso seja resto um garantimos que O NUM é impar!bem baseado nisso voce precisará entrar num for com passo um mesmo e fazer um pedir para o usuário digitar um numero qualquer...pegue o numero e divide por 2 e veja se dá resto zero( no caso em pascal tem o MOD que faz isso)seria assim...if NUM mod 2 = 0 Then begin Cont_par:=Contpar + 1; endBem repare que se voce tem o total de 200 nao precisa contar os impares pois os impares serão 200 - cont_par.é isso cara... espero ter ajudado a esclarecer a lógica!abraços