Question

preciso calcular a porcentagem de homens e mulheres em pascal.
ex:
informe a quantidade de homens:__
informe a quantidade de mulheres:__

a porcentagem de homens é:__
a porcentagem de mulheres é:__

Answer 1

algoritmo porcentagem;
variaveis
totalhomem,totalmulher,pmulher,phomen,total:real;
inicio
escreva ( informe a quantidade de mulheres );
leia(totalmulher);
escreva ( quantidade homens);
leia (totalhomem);
total <- totalmulher + totalhomen;
phomen <- totalhomen * 100/total;
pmulher <- totalmulher * 100/total;

escreva (Porcentagem homens, phomen);
escreva (Porcentagem mulher, pmulher);
fim

Answer 2

Resposta:

homens 1

mulheres 14

Explicação: