RESOLU O DA I LISTA DE EXERC CIO

ALGORITMO UM;
VAR
NOT1,NOT2,NOT3,MEDIA:REAL;
INICIO
ESCREVA(‘DIGITE A PRIMEIRA NOTA’); LEIA(NOT1); ESCREVA(‘DIGITE A SEGUNDA NOTA’); LEIA(NOT2); ESCREVA(‘DIGITE A TERCEIRA NOTA’); LEIA(NOT3); MEDIA:=(NOT1+NOT2+NOT3)/3; ESCREVA(‘A MÉDIA FOI:’,MEDIA);
FIM.

ALGORITMO DOIS;
VAR
NUM,TERC:REAL;
INICIO
ESCREVA(‘DIGITE O NÚMERO’); LEIA(NUM); TERC:=NUM/3; ESCREVA(‘A TERÇA PARTE DO NÚMERO DIGITADO É:’,TERC);
FIM.

ALGORITMO TRÊS;
VAR
SALDO,NSALDO:REAL;
INICIO
ESCREVA(‘DIGITE O SALDO’); LEIA(SALDO); NSALDO:=SALDO+(SALDO*0.05); ESCREVA(‘O NOVO SALDO É:’,NSALDO);
FIM.

ALGORITMO QUATRO;
VAR
V,R,H:REAL;
INICIO
ESCREVA(‘DIGITE O RAIO’); LEIA(R); ESCREVA(‘DIGITE A ALTURA’); LEIA(H); V:=3.1419*R*R*H; ESCREVA(‘O VOLUME DA LATA É:’,V);
FIM.

ALGORITMO CINCO;
VAR
NUM,SUCE,ANTE:INTEGER;
INICIO
ESCREVA(‘DIGITE UM NÚMERO’); LEIA(NUM); SUCE:=NUM+1; ANTE:=NUM-1; ESCREVA(‘O SUCESSOR DO NÚMERO DIGITADO FOI:’,SUCE); ESCREVA(‘O ANTECESSOR DO NÚMERO DIGITADO FOI:’,ANTE);
FIM.

ALGORITMO SEIS;
VAR
BASE,ALTURA,AREA:REAL;
INICIO
ESCREVA(‘DIGITE A BASE’); LEIA(BASE); ESCREVA(‘DIGITE A ALTURA’); LEIA(ALTURA); AREA:=(BASE*ALTURA)/2; ESCREVA(‘A ÁREA DO TRIÂNGULO É:’,AREA);
FIM.

ALGORITMO SETE;
VAR
A,B,C:INTEGER;
INICIO
ESCREVA(‘DIGITE O VALOR DE A’); LEIA(A); ESCREVA(‘DIGITE O VALOR DE B’); LEIA(B); C:=A; A:=B;
B:=C;
ESCREVA(‘O VALOR DE A É:’,A); ESCREVA(‘O VALOR DE B É:’,B);
FIM.

ALGORITMO OITO;
VAR
SALMIN,QTDKW,KW,VALOR,NVALOR:REAL;
INICIO
ESCREVA(‘DIGITE O VALOR DO SALÁRIO MINIMO’); LEIA(SALMIN); ESCREVA(‘DIGITE A QUANTIDADE DE KW GASTA’); LEIA(QTDKW); KW:=SALMIN/700; VALOR:=QTDKW*KW; NVALOR:=VALOR-(VALOR*0.10); ESCREVA(‘O VALOR DE UM KW É:’,KW); ESCREVA(‘O VALOR A SER PAGO É:’,VALOR); ESCREVA(‘O NOVO VALOR COM DESCONTO É:’,NVALOR);
FIM.