introducao de algoritimos

Implemente os algoritmos abaixo:

1. Exibir todos os números divisíveis por 4 que estejam no intervalo entre 1 e 200 inclusive.

Inicio inteiro : contador; real : resto;

contador  1; enquanto (contador =18) então escreva(“maior de idade”) senão escreva(“menor de idade”);

escreva(“digite a idade ”); leia( idade ); fim;

Fim.

3.1 Evoluir o algoritmo para exibir a média de idade, a maior idade, a menor idade e quantos pessoas foram informadas.
Inicio
inteiro : idade, maior, menor, media, total, cont;

escreva(“digite a idade ”); leia( idade );

menor  999; maior  0; total  0; cont 0; enquanto (idade > 0) faça inicio se (idade>=18) então escreva(“maior de idade”) senão escreva(“menor de idade”);

se (idade < menor) então menor  idade; se (idade > maior) então maior  idade; total += idade; cont += 1; escreva(“digite a idade ”); leia( idade ); fim; media = (total / cont); escreva(“maior”,maior); escreva(“menor”,menor); escreva(“media”,media); escreva(“quant”,cont);

Fim.

4. Escreva um algoritmo para contar quantas pessoas são do sexo masculino e quantas são do sexo feminino, para tal, solicite o sexo da pessoa considerando H ou h, para homens, M ou m, para mulheres, e ainda, F ou f para encerrar o algoritmo (utilizar o comando “repita” para a solução).

Inicio inteiro : contH, contM; caracter: sexo;

repita escreva(“digite o sexo H/M ou F “); leia( sexo );

se (sexo=”H”) ou (sexo=”h”) então contH  cotnH + 1 senão Se (sexo =“M”) ou (sexo=”m”) então contM  contM + 1;

enquanto ( (sexo”F”) e (sexo ”f”) );

escreva(“homens “,contH); escreva(“mulheres “,contM);

Fim.

5. Escreva um algoritmo para ler um número inteiro e maior que zero e exiba