Algoritmo

1) algoritmo "exercicio1"

var A,B: inteiro

inicio

escreva ("informe dois numeros: ")

leia (A,B)

se (A mod B =0) entao

escreva ("O numero ",A," é divisivel do numero ",B)

senao

escreva ("O numero ",A," não é divisivel do numero ",B)

fimse

fimalgoritmo

2) algoritmo "exercicio2"

var A,B,soma: real

inicio

escreva("Digite o 1° numero:")

leia(A)

escreva("Digite o 2° numeoro:")

leia(B)

soma <- A+B

se (soma >= 10) entao

escreva ("Somando 5.: ",soma+5)

senao

escreva ("subtraindo 7.: ",soma-7)

fimse

fimalgoritmo

3) algoritmo "exercicio3"

var

l1,l2,l3:real

validade:logico

area, base, altura : real

inicio

escreval ("Informa os 3 lados: ")

leia(l1,l2,l3)

se (l1<(l2+l3)) e (l2<(l1+l3)) e (l3<(l1+l2)) entao

validade <- verdadeiro

senao

validade <- falso

fimse

se (validade = verdadeiro) entao

se (l1=l2) e (l1=l3) e (l2=l3) entao

escreval ("triangulo equilatero")

fimse

se (l1<>l2) ou (l1<>l3) ou (l2<>l3) entao

escreval ("Triangulo isóceles")

fimse

se (l1<>l2) e (l1<>l3) e (l2<>l3) entao

escreval("Triangulo escaleno")

fimse

senao

escreval("Não é triangulo")

fimse

escreval("Informe a base: ")

leia(base)

escreval("Informe a altura: ")

leia(altura)

se((base =0) e (altura =0)) entao

escreval("Base ou altura inválidas")

fimse

area <- base *altura/2

escreval("A area do triangulo é: ",area)

fimalgoritmo

4) algoritmo "exercicio4"

var n : inteiro

inicio

escreval ("Informe um valor: ")

leia (n)

se (n=0) entao

escreva ("Nulo")

senao

se (n>0) entao

escreva("Positivo")

senao

escreva("Negativo")

fimse

fimse

fimalgoritmo

5) algoritmo "exercicio5"

var SALDOMEDIO, CREDITO :real

inicio

escreval("Informa o valor do saldo:")

leia(SALDOMEDIO)

se ( SALDOMEDIO <= 500 ) entao

CREDITO <- 0

senao

se ( SALDOMEDIO <= 1000 ) entao

CREDITO <- (30/100) * SALDOMEDIO

senao

se ( SALDOMEDIO <= 3000 ) entao

CREDITO <- (40/100) * SALDOMEDIO

senao

CREDITO <- (50/100) * SALDOMEDIO

fimse

fimse

fimse

escreval("Saldo médio de: ",SALDOMEDIO)

escreval("Crédito