Atividade Faça um algoritmo que implemente o login de um sistema, ele deve ler o usuário e a senha, enquanto o usuário não for "IFBA" e a senha não for "aluno12456", o algoritmo deve informar que o usuário e a senha estão incorretos e pedir para repetir. Resposta program login; var usuario, senha: string; begin … Continue lendo Login e senha

Atividade Faça um algoritmo que leia um intervalo [x,y] e informe todos os números múltiplos de 5 contidos no intervalo. Resposta program multiplo5; var x,y,num: integer; begin write('Digite o valor de x: '); readln(x); write('Digite o valor de y: '); readln(y); for num:=x to y do if num MOD 5 = 0 then writeln('M�ltiplo de … Continue lendo Intervalo múltiplos

Atividade Faça um algoritmo que leia o salário de um funcionário e informe quanto ele pagará de imposto de renda no mês. Para o cálculo, considere a seguinte tabela: Salário ------------------------------------ IRAté 1.903,98 --------------------------- 0%De 1.903,99 até 2.826,65 ---------- 7,5%De 2.826,66 até 3.751,05 ---------- 15%De 3.751,06 até 4.664,68 ---------- 22,5%Acima de 4.664,68 ------------------- 27,5% Resposta … Continue lendo Imposto de renda

Atividade Faça um algoritmo que leia o peso e a altura de uma pessoa, calcule seu IMC=peso/altura² e informe a classificação da pessoa de acordo com seu IMC:IMC < 18.5 -> Desnutrido18.5 <= IMC <= 24.9 -> NormalIMC > 24.9 -> Obeso Resposta program calculoIMC; var peso, altura, IMC: real; begin write('Digite o peso: '); … Continue lendo IMC

Atividade Dada a série de Fibonacci: 1,1,2,3,5,8,13,21,…, cujos dois primeiros termos são 1, e, a partir do terceiro termo, obtém-se o termo seguinte da série somando os 2 termos anteriores, faça um algoritmo que leia um número inteiro N e informe os N primeiros termos da série de Fibonacci. Resposta program fibonacciN; var fib1, fib2, … Continue lendo Fibonacci de N

Atividade A Série de Fibonacci é: 1, 1, 2, 3, 5, 8, 13, … Note que os dois primeiros termos desta série são iguais a 1 e, a partir do terceiro, o termo é dado pela soma dos dois termos anteriores. Dado um número n, faça um algoritmo que exiba todos os termos da série … Continue lendo Fibonacci

Atividade Faça um algoritmo que leia um número inteiro e escreva o fatorial deste mesmo número.Exemplo: 6! = 65432*1 = 720 Resposta program fatorial; var N, cont, fat: integer; begin write('Digite um número inteiro: '); readln(N); write(N,'! = '); fat:=1; for cont:=N downto 1 do begin fat:=fat*cont; if cont = 1 then write(cont) else write(cont,'*'); … Continue lendo Fatorial

Atividade Faça um algoritmo que leia a idade e o estado civil de N pessoas (O algoritmo deve parar quando for informada uma idade negativa). Informe: a) quantas pessoas acima de 50 anos estão casadas; b) quantas pessoas abaixo de 40 anos estão solteiras. Resposta program estatistica; var idade,casada50,solteira40,N: integer; estadoCivil: string; begin while idade>=0 … Continue lendo Estatística

Atividade Faça um algoritmo que leia os extremos inteiros de um intervalo [x,y] e informe todos os divisores de todos os números inteiros contidos neste intervalo. Resposta program divisoresIntervalo; var x,y,divisor,num: integer; begin write('Digite os extremos do intervalo [x,y]: '); readln(x,y); for num:=x to y do for divisor:= 1 to num do if num MOD … Continue lendo Intervalo divisores

Atividade Faça um algoritmo que leia um número inteiro e informe todos os seus divisores. Resposta program divisores; var cont, num: integer; begin write('Digite um número inteiro: '); readln(num); for cont:=num downto 1 do if num MOD cont = 0 then writeln('Divisor = ',cont); end.