Jump to content
Fórum Script Brasil
  • 0

Dúvidas com Execícios


dai silva

Question

1 Faça um programa que lê 5 valores de cada vez, e conta quantos destes valores são negativos, quantos são positivos e quantos zero, escrevendo esta informação

2 escreva um programa que leia um número, se o mesmo for par imprima os próximos 10 números pares seguintes.

Para descobrir se o número é par deve ser feira a divisão por 2,se o resto for zero podemos afirmar que o número e par.na linguagem resto e dado pelo operador % resto num %2;em português estruturado: mod (resto da divisão )

3 faça um programa que leia número enquanto eles forem positivos e imprima quantos números foram digitados.

4 faça um programa que receba um inteiro N positivo e indique se o mesmo e ou não um número perfeito.um número e dito perfeito quando a soma dos seis divisores, exceto ele próprio, é igual ao número.

Exemplos: 6= 1+2+3(é perfeito) 10=1+2+5(não perfeito) 28=1+2+4+7+14 (é perfeito )

5 faça um programa que receba os números inteiros X e imprima o resultado da série:

Resultado =(x+2)/2 +(x+4)/4 +... +(x+n)n

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

tentei o 1.

inicio
escreval("digite o numero")
leia(x)
se x >0 então
escreval ("positivo")
fimse
se x <0 então
escreval ("negativo")
fimse
se x = 0 então
escreval("e zero")
fimse
fimalgoritmo
ps: conseguir o 1 mais o codigo ficou logo
algoritmo "1"
var
x:inteiro
inicio
escreval("digite o numero")
leia(x)
se x >0 então
escreval ("positivo")
fimse
se x <0 então
escreval ("negativo")
fimse
se x = 0 então
escreval("e zero")
fimse
fimalgoritmo
inicio
fimalgoritmo
ou
algoritmo "semnome"
var
programa, numero: inteiro
inicio
// Seção de Comandos
escreval("digite um numero")
leia(numero)
se numero > 0 então
escreval("Positivo")
fimse
se numero < 0 então
escreval("Negativo")
fimse
se numero >= 0 então
escreval("O número é igual a 0")
fimse
leia(numero)
se numero > 0 então
escreval("Positivo")
fimse
se numero < 0 então
escreval("Negativo")
fimse
se numero >= 0 então
escreval("O número é igual a 0")
fimse
leia(numero)
se numero > 0 então
escreval("Positivo")
fimse
se numero < 0 então
escreval("Negativo")
fimse
se numero >= 0 então
escreval("O número é igual a 0")
fimse
leia(numero)
Edited by dai silva
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...