Algoritmo

(Enquanto ) Faça um programa que receba dez números, calcule e mostre a soma dos números pares e dos números impares.

algoritmo "semnome"

// Função :

// Autor :

// Data : 30/10/2015

// Seção de Declarações

var

contgeral,contimpar,contpar : inteiro

soma, soma1, numero: real

inicio

// Seção de Comandos

contgeral:= 1

Enquanto:= ( contgeral <= 10 ) faca

Escreval ("digite o numero desejado e pressione ENTER")

Leia (numero)

Se ( numero mod 2 = 0 ) entao

contpar:=contpar + 1

soma := soma + numero

senao

Se ( numero mod 2 <> 0 ) entao

contimpar:= contimpar + 1

soma1 := soma1 + numero

fimse

fimse

contgeral:= contgeral + 1

fimenquanto

Escreval ("a soma dos numeros par foi de:",soma)

Escreval ("a soma dos numeros impar foi de:",soma1)

fimalgoritmo

(PARA-)Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 30 funcionários de acordo com os seguintes critérios:

a) 50% para aqueles que ganham menos do que três salários mínimos;

b) 20% para aqueles que ganham entre três até dez salários mínimos;

c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;

d) 10% para os demais funcionários

algoritmo "semnome"

// Função :

// Autor :

// Data : 29/10/2015

// Seção de Declarações

var

contgeral : inteiro

funcionario : caracter

salario, salariominimo, salariominimo1, salariominimo2, salariominimo3, salariominimo4, reajuste, novosalario : real

inicio

// Seção de Comandos

contgeral:=1

para contgeral de 1 ate 30 faca

Escreval ("Digite o nome do funcionario")

Leia (funcionario)

Escreval ("Digite seu salario")

Leia (salario)

Escreval ("Digite o salario minimo")

Leia (salariominimo)

salariominimo1:=salariominimo * 3

Se (salario < salariominimo1) e (salario > 0)entao