Ir ao conteúdo
  • Cadastre-se

Alan27895

Membros Juniores
  • Total de itens

    1
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Tem que somar as idades maiores de 18 anos e as idades menores de 18 anos e mostrar os dois resultados ao usuario mas tem que usar o comando Type. Estou apredendo a programar,eu tentei fazer,só que o programa não esta executando corretamente,alguém pode me ajudar e falar onde que eu estou errado. <> Program Maiores_e_Menores_de_Idade; Type Idades=Integer; Var Idade,SomaMaior,SomaMenor:Idades; Cont:Integer; Begin SomaMaior:=0; SomaMenor:=0; For Cont:=1 to 10 do Begin Writeln('Digite a idade ',Cont); Readln(Idade); If Idade>=18 Then Begin SomaMaior:=SomaMaior+Idade; end Else Begin SomaMenor:=SomaMenor+Idade; end; end; Writeln('A soma dos maiores de idade e:',SomaMaior); Writeln('A soma dos menores de idade e:',SomaMenor); Readln; End.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!