Algoritmo Múltiplos

...

escreva(“Digite o sexo:”);

leia(sexo);

se (sexo = “masculino”) e (idade >= “21”) então

escreva(“Do sexo masculino e tem mais de 21 anos:”);

senão

escreva(“Não é do sexo masculino e não tem mais de 21 anos”);

fimse;

fim;

fim_para;

Fim.

11- Algoritmo Inferior_Superior;

Var

n1, n2, cont, maior, menor: inteiros;

Inicio

Escreva(“Digite o primeiro número”);

Leia(n1);

Escreva(“Digite o segundo número”);

Leia(n2);

Se n1>n2 então

maior←n1;

menor←n2;

senão

maior←n2;

menor←n1;

fimse;

cont←1;

Para cont de menor até maior passo 1 faça

inicio

Escreva(“Números impares do intervalo: ”,cont);

fimpara;

fim;

12- Algoritmo Somatorio;

Var

n1, somatorio:inteiro;

inicio

escreva("Digite o número 0800 para finalizar");

Escreva("Digite um número para somar");

Leia(n1);

somatorio←n1;

repita

Escreva("Digite um número para somar");

Leia(n1);

somatorio

ate n1= 0800;

somatorio

escreva("O resultado da conta é: ",somatorio);

fim.

13- Algoritmo Maior_Menor;

Var

menor, meio, maior:inteiro

Inicio

menor←0;

maior←0;

Escreva(“Digite 0800 para finalizar”);

repita

Escreva(“Digite um número”);

Leia(meio);

se meio=1313 então

Escreva(“O maior número foi: ”,maior,”O menor foi “, menor);

senão

se meio>maior então

maior←meio;

senão

se meio

menor←meio;

fimse;

fimse;

fimse;

Até meio=1313;

fim.

14- Algoritmo Somatorio_Maior_Menor;

Var

menor, meio, maior, somatorio:inteiro;

Inicio

menor←0;

maior←1;

somatorio←0

Escreva(“Digite 0800 para finalizar”);

repita

Escreva(“Digite um número”);

Leia(meio);

se meio>maior então

maior←meio;

senão

se meio

menor←meio;

fimse;

fimse;

fimse;

somatorio←somatorio+meio

Até meio=0800;

Escreva(“O maior número foi: ”,maior,”O menor foi “, menor,” a soma de todos números é ” , somatorio);

fim.

15- Algoritmo Menu;

Var

n1, n2, media: inteiro;

op:caractere;

inicio

Escreva(“Digite o primeiro Número”);

Leia(n1);

Escreva(“Digite o segundo Núemro”);7

Leia(n2);

Escreva(“O que deseja fazer?”);

Escreva(“A- Maior Número | B- Menor número | C- Média Aritmética | D- Finalizar”);

Leia(op);

Se op=”a” então

se n1>n2 então

Escreva(“O