Exercicios de Sequencia
1) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos.
Uses Crt;
Var
Numero1 :Integer;
Numero2 :Integer;
Soma :REAL;
Begin
Writeln ('Entre com dois Números: ');
Readln (Numero1, Numero2);
Soma := Numero1 + Numero2;
Writeln ('A soma dos dois valores é igual a ', Soma);
End.
2) Faça um algoritmo que solicite ao usuário dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.
Uses Crt;
Var
Numero1 :Integer;
Numero2 :Integer;
Soma :REAL;
Subtracao :REAL;
Multiplic :REAL;
Divisao :REAL;
Begin
Writeln ('Entre com dois números: ');
Readln (Numero1, Numero2);
Soma := Numero1 + Numero2;
Subtracao := Numero1 - Numero2;
Multiplic := Numero1 * Numero2;
Divisao := Numero1 / Numero2;
Writeln ('A soma dos números é igual a ', Soma);
Writeln ('A subtração dos números é igual a ', Subtracao);
Writeln ('A multiplic dos números é igual a ', Multiplic);
Writeln ('A divisão dos números é igual a ', Divisao);
End.
3) Faça um algoritmo que solicite ao usuário um número qualquer e exiba o seu dobro.
Uses Crt;
Var
Numero1 :Integer;
Dobro :REAL;
Begin
Writeln ('Entre com um Número: ');
Readln (Numero1);
Dobro := Numero1 * 2;
Writeln ('O dobro do número é igual a ', Dobro);
End.
4) Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
Uses Crt;
Var
Distancia :Integer;
Combustivel :Integer;
Consumo-Medio :REAL;
Begin
Writeln ('Entre com a distância percorrida em Km: ');
Readln (Distancia);
Writeln ('Entre com a quantidade de combustível: ');
Readln (Combustivel);
Consumo-Media := Distancia / Combustivel;
Writeln ('O consumo médio é igual a ', Consumo-Medio);
End.
5) Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que