Portugol

Leia um numero e calcule o seu fatorial.
Algoritmo Fatorial;
Declare
Var fat, n, i
:inteiro;
Início escreva (‘Digite um número para calcular seu fatorial’); leia (n); fat←1; para i←1 até n faça fat←fat*i; fimpara; escreva (‘O fatorial de ’ , n , ‘ é ’ , fat);
Fim.

Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150
(inclusive).
1. Algoritmo;
Declare
Var i, c
:inteiro;
Início c←0; para i←1 até 80 faça escreva (‘Digite um número ’); leia (n); se n >=10 e n=18 então escreva (‘Maior de idade’ ) senão escreva (‘Menor de idade’ ); fimse; fimpara;
Fim.

Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens e de mulheres.
3. Algoritmo;
Declare
Var i, ch, cm
:inteiro;
nome, sexo :string;
Início
ch←0; cm←0; para i←1 até 56 faça escreva (‘Digite o nome: ’); leia (nome); escreva (‘Digite o sexo: ’); leia (sexo); se sexo =”M” então ch←ch+1 senão cm←cm+1; fimse; fimpara; escreva (‘Das 56 pessoas ’ , ch , ‘são homens’); escreva (‘Das 56 pessoas ’ , cm , ‘são mulheres’);
Fim.

Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda
4. Algoritmo;
Declare
Var pcusto, pvenda, lucro :real; i :inteiro; nomeproduto :string;
Início
para i←1 até 40 faça escreva (‘Digite o nome do produto: ’); leia (nomeproduto); escreva (‘Digite o preço de custo: ’); leia (pcusto); escreva (‘Digite o preço de venda: ’); leia (pvenda); se pvenda >pcusto então escreva (‘deu lucro ’) senão se pvenda = pcusto então escreva (‘empate, nem lucro, nem prejuízo ’) senão escreva (‘prejuízo ’); fimse; fimse; fimpara; Fim.
Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.
5. Algoritmo;
Declare