Utilizador anónimo
Pascal/Estrutura de repetição (editar)
Revisão das 00h32min de 25 de março de 2013
, 25 de março de 2013→Exercícios
| [edição verificada] | [edição verificada] |
(o ponto final existe) |
|||
|
end;
if sexo='m' then {testa se o sexo e m}
cont_m:=cont_m+1; {conta a quantidade de homens}
else
begin
write('A diferença percentual entre homens e mulheres é: ');
dif:=(cont_m/quant)*100-(cont_f/quant)*100;
if dif>0 then write(dif:2:2,'% a mais de homens');
else write(abs(dif):2:2,'% a mais de mulheres');
readkey;
| |||