Escreva um algoritmo que leia 200 números inteiros e imprima quantos são pares e quantos são ímpares

//  Created by Estevão Bordin on 10/09/15.

//  Copyright (c) 2015 estevaobordin. All rights reserved.

//  Ler 10 números inteiros e imprimir quantos são pares e quantos são impares.

#include <stdio.h> //incluindo bibliotecas

#include <stdlib.h>

int main(int argc, const char * argv[]) { //abrindo main

int par=0, num, i; //informado variaveis

for (i=1; i<=10; i++) { //iniciando laco para leitura dos numeros

printf(“Informe numero: “); //solicitando numeros do usuario

scanf(“%d”, &num); //lendo numero

if (num%2==0) { //verificando se eh par

par=par+1//se for par faz a contagem

}

}

printf(“Pares: %d\n”, par); //informa o numero de pares

printf(“Impares: %d”, 10-par); //faz a conta dos impares e informa

printf(“\n”);

    return 0;

}

6- Imprimir os 20 primeiros termos de uma P.A de razão cuja o valor inicial é 10 e a razão é 6 (10, 16, 22...)

algoritmo "pa"
var
aux, pa : inteiro
inicio
pa := 10
para aux de 1 ate 20 passo 1 faca
 escreval(pa)
 pa:= pa + 6
fimpara
fimalgoritmo

7-Ler 10 números reais; ao final mostrar o número maior.

algoritmo "maior"
//7. Ler 10 números reais; ao final mostrar o número maior.
var
 num, maior: real
 aux: inteiro
inicio
escreva("informe o primeiro numero: ")
leia(num)
maior := num
para aux de 1 ate 9 passo 1 faca
     escreva("informe o numero: ")
     leia(num)
     se(num > maior) entao
        maior := num
     fimse
fimpara
escreval("o maior numero lido foi ", maior)
fimalgoritmo

9- Faça um algoritmo que leia a quantidade de números que o usuário deseja digitar e em seguida realize as leituras dos números. Ao final informe quantos números pares e ímpares foram digitados.

algoritmo "quantParesImpares"
var
num, quant, aux, quantPares, quantImpares:  inteiro
inicio
  escreva("informe a quantidade: ")
  leia(quant)
  quantPares := 0
  quantImpares := 0
  para aux de 1 ate quant passo 1 faca
     escreva("informe o ", aux, "º numero: ")
     leia(num)
     se(num mod 2 = 0) entao
        quantPares := quantPares + 1
     senao
        quantImpares := quantImpares + 1
     fimse
  fimpara
  escreval("Pares: ", quantPares)
  escreval("Impares: ", quantImpares)
fimalgoritmo

10. Faça um algoritmo que informar se o número digitado é primo (ou não).

algoritmo "primo"
var
    num, aux : inteiro
    ehPrimo: logico
inicio
   ehPrimo:= verdadeiro
   escreva("informe o numero: ")
   leia(num)
   para aux de 2 ate num-1 passo 1 faca
      se (num mod aux = 0) entao
          ehPrimo := falso
      fimse
   fimpara
   se(ehPrimo = verdadeiro) entao
     escreval("o numero ", num, " é primo")
   senao
     escreval("o numero ", num, " não é primo")
   fimse
fimalgoritmo

11. Altere o exercício anterior para receber números do usuário e informar se são número primos ou não. O algoritmo deve encerrar quando o usuário informar números negativos ou zero (<=0). Ao final, informar quantos números primos foram digitados.

algoritmo "primo"
var
    num, aux, quantidade : inteiro
    ehPrimo: logico
inicio
   quantidade := 0
   escreva("informe o numero: ")
   leia(num)
   enquanto num > 0 faca
      ehPrimo:= verdadeiro
      para aux de 2 ate num-1 passo 1 faca
         se (num mod aux = 0) entao
             ehPrimo := falso
         fimse
      fimpara
      se(ehPrimo = verdadeiro) entao
        escreval("o numero ", num, " é primo")
        quantidade :=  quantidade + 1
      senao
        escreval("o numero ", num, " não é primo")
      fimse
      escreva("informe o proximo numero: ")
      leia(num)
   fimenquanto
   escreval("quantidade de primos: ",quantidade)
fimalgoritmo

12. Informar os divisores de um número digitado.

algoritmo "divisores"
var
    num, aux: inteiro
inicio
  leia(num)
  para aux de 1 ate num passo 1 faca
       se num mod aux = 0 entao
           escreval(aux)
       fimse
  fimpara
fimalgoritmo


17. Faça um algoritmo que solicite ao usuário 10 números inteiros e, ao final, informe a quantidade de números ímpares e pares lidos. Calcule também a soma dos números pares e a média dos números ímpares.

algoritmo "paresImpares"
var
num, somaPares, aux, quantPares, quantImpares:  inteiro
mediaimpares : real
inicio
  quantPares := 0
  quantImpares := 0
  para aux de 1 ate 10 passo 1 faca
     escreva("informe o ", aux, "º numero: ")
     leia(num)
     se(num mod 2 = 0) entao
        quantPares := quantPares + 1
        somaPares := somaPares + num
     senao
        quantImpares := quantImpares + 1
        mediaimpares := mediaImpares + num
     fimse
  fimpara
  escreval("Pares: ", quantPares)
  escreval("Impares: ", quantImpares)
  escreval("Somas Pares: ", somaPares)
  escreval("Media Impares: ", mediaImpares/quantImpares)
fimalgoritmo