furlantx500 tx
-
Posts
8 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de furlantx500 tx em Ajuda em exercícios pascal! foi marcado como solução
PROGRAM medmulh;var nomedoaluno :string; sexo,continuar :char; idade,cont,cont2:integer; porcentagem :real;BEGINcont:=0;cont2:=0;repeat writeln('Digite seu nome'); readln(nomedoaluno); repeat writeln('Digite a idade. Apenas idade maior igual a 15'); readln(idade); until (idade>=15) and (idade<=120); repeat writeln('Digite seu sexo M ou F'); readln(sexo); sexo:= upcase(sexo); until (sexo='F') or (sexo='M'); if sexo='F' then cont:=cont+1; if (idade>=25) and (sexo='F') then cont2:=cont2+1; writeln('Deseja continuar? S ou N'); readln(continuar); continuar:= upcase(continuar);until continuar=('N');if cont=0 then writeln('Nenhuma mulher entrevistada')else begin writeln('O numero de mulheres entrevistadas acima de 25 anos e ',cont2); porcentagem:=(cont2*100/cont); writeln('A % de mulheres acima de 25anos e ',porcentagem:0:2,'%'); end;readln;END. Ae, concertei
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
