Procentajes
Publicado por Maick (41 intervenciones) el 02/10/2020 00:49:56
Saludos a todos, tengo este pequeño problema y no logro solucionarlo el problema es este:
Un Zoólogo pretende determinar el porcentaje de animales que hay en las siguientes tres categorías de edades: de 0 a 25 años, de más de 25 años y menos a 45 y de 45 o más años, El zoológico todavía no está seguro del animal que va a estudiar. Si se decide por el elefante solo tomara una muestra de 20 de ello.
El código que estoy utilizando es este:
Espero me puedan ayudar
Un Zoólogo pretende determinar el porcentaje de animales que hay en las siguientes tres categorías de edades: de 0 a 25 años, de más de 25 años y menos a 45 y de 45 o más años, El zoológico todavía no está seguro del animal que va a estudiar. Si se decide por el elefante solo tomara una muestra de 20 de ello.
El código que estoy utilizando es este:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program Eje1;
Uses crt;
Var a,b,c,r,elefante, edadelef,elefa,elefb,elefc,z: integer;
animal: string ;Begin
animal:= 'elefante';
for z:=1 to 16 do begin
Writeln('Ingrese la edad del elefante');
Readln(edadelef);
if (edadelef>=0) and (edadelef <=25) then
elefa:= elefa +1;
if (edadelef>=26) and (edadelef<=44) then
elefb:= elefb +1;
if edadelef>=45 then
end;
a:= (elefa*100) /20;
b:= (elefb*100) /20;
c:= (elefc*100) /20;
Writeln('De 0 a 20 años: ',a);
Writeln('De mas de 20 años y menos de 45: ',b);
Writeln('Más de 45 años: ',c);
Readkey
End.Espero me puedan ayudar
Valora esta pregunta
0
