024691501902

5.1 Escreva um algoritmo que receba um número e mostre se ele é positivo, negativo ou nulo. (1,0 ponto)
Inicio
var
REAL num;
Escrever Digite umnumero qualquer: ;
Leia (num1);
Se( num>0)
Entao escreva ( Este número é positivo );
Se (num100)
Entao metade=num/2;
Escreva ( Ametade deste número é ,metade);
Fim.
5.3 Elabore um algoritmo que receba três notas de um aluno, calcule e mostre a média. E se a média estiver entre 0 e 3, escreva aluno reprovado . Se estiver acima de 3 e menor que 6, escreva aluno em exame , senão semédia igual e maior que 6, então escreva aluno aprovado . (3,0 pontos)
Inicio
var
REAL nota1, nota2, nota3, media; escreva("Digite a primeira nota: ") leia(nota1); escreva("Digite a segunda nota: ") leia(nota2); escreva("Digite a terceira nota: ") leia(nota3); media = (nota1+nota2+nota3)/3;
Se media 3) e (media=6)
Entao escreva Aluno aprovado ; fimse; fimse; fim algoritmo.

5.1 Faça um algoritmo que receba um número inteiro e positivo. E se ele for maior que 50, mostre a metade desse número. (1,0 ponto)
Inicio
var
INTEIRO num;
REAL metade;
Escrever (“Digite um numero inteiro e positivo:”);
Leia (num);
Se (num>50)
Entao metade=num/2;
Escreva (“A metade deste número é”, metade);
Fim.
5.2 Escreva um algoritmo que receba um número e mostre se ele é positivo, negativo ou nulo. (1,0 ponto)
Inicio
var
REAL num;
Escrever “Digite um numero qualquer:”;
Leia (num1);
Se( num>0)
Entao escreva (“Este número é positivo”);
Se (num num3)
Entao Se ( num1 > num3)
Entao Escreva(“A ordem crescente é:”,num2,num1,num3);
Senao Escreva(“A ordem crescente é:”,num2,num3,num1);
Fimse;
Fimse;
Se(num3 > num1) e (num3 > num2 )
Entao Se ( num1 > num2 )
Entao Escreva (“A ordem crescente é:”,num3,num1,num2);
Senao Escreva(“A ordem crescente é:”,num3,num2,num1);
Se (num1=num2) e (num2=num3)
Entao Escreva (“Os números são iguais.”);
Fimalgoritmo
3ª opção de resposta
Inicio
Var
INTEIRO N1,N2,N3; escreva("Entre com