Ir para conteúdo
Fórum CódigoFonte.net

mcastro01_12

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. mcastro01_12

    Algoritmo Pascal (corrigir)

    Preciso corrigir a soma, quero que a soma seja feita no final e não toda vez que eu digitar um valor maior que 18....socorro!!!!!!!!!! program Project1; Var Cont, Valor, Idade: Integer; Soma: Real; begin Writeln('Digite a quantidade de idades que deseja'); Readln(Valor); Idade:=0; Soma:=0; For Cont:= 1 To Valor Do Begin Writeln('Digite a Idade', Cont); Readln(Idade); Case Idade Of 0..17: Soma:= 0; Else Begin Soma:=Soma + Idade; End; Writeln('A soma das idades e:', Soma:2:2); Readln; End; End; End.
×