Pascal/Estrutura de repetição: diferenças entre revisões

[edição verificada][edição verificada]
Conteúdo apagado Conteúdo adicionado
Abacaxi (discussão | contribs)
o ponto final existe
Linha 282:
end;
if sexo='m' then {testa se o sexo e m}
cont_m:=cont_m+1; {conta a quantidade de homens}
else
begin
Linha 298:
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;