Pascal/Turbo Pascal - par_impar

   
Vista:

par_impar

Publicado por and19 (13 intervenciones) el 27/10/2009 02:25:39
hola que tal tengo un problema en pascal y esq necesito agregarle a este programa *(aparece abajo)* que el programa me diga cuantos numeros pares existen y el promedio de los numeros impares que existen (entre el valor inicio y el valor final que el usuario elija) Nota (* este programa q aqui pongo corre y me muestra los numeros pares e impares y tambien suma los numeros pares) pero necesito que tambien me muestre la cantidad de nº pares y el promedio de los nº impares que existan entre el valor inicio y el valor final que el usuario elija*) gracias por la ayuda que me puedan brindar! a qui les dejo lo que llevo del programa...

program preg_6;
uses crt;
var
i,suma_par,pares,impares,n: integer;
varini, varfin :integer;
begin
clrscr;
writeln('suma, y catidad de los numeros pares y promedio de los numeros pares e impares');
writeln('escriba el valor de inicio');
readln(varini);
writeln('escriba el valor final');
readln(varfin);

for i := varini to varfin do
begin
write (i);
if i mod 2 =0 then

writeln('es par')
else
writeln('no es par');
delay(100);

if (i mod 2)=0 then
suma_par := suma_par + i;
end;
writeln('la suma de los numeros pares es de:',suma_par);
readkey;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:par_impar

Publicado por edwin payan (71 intervenciones) el 28/10/2009 18:45:30
program preg_6;
uses crt;
var
Contador,SumaPar,ContadorPar,SumaImpar,ContadorImmpar:integer;
varini, varfin :integer;
begin
clrscr;
writeln('suma, y catidad de los numeros pares y promedio de los numeros pares e impares');
writeln('escriba el valor de inicio');
readln(varini);
writeln('escriba el valor final');
readln(varfin);

for Contador := varini to varfin do
begin
write (Contador);
If Contador mod 2 =0 then
Begin
writeln(contador,' es par');
inc(ContadorPar);
SumaPar:=SumaPar+Contador;
End
Else
Begin
writeln(contador,' No es par');
inc(ContadorImpar);
SumaImpar:=SumaImpar+Contador;
End;
Delay(100);
End;
writeln('la suma de los numeros pares es de: ',sumaPar);
writeln('El promedio de los numeros pares es de:', SumaPar/ContadorPar);
writeln('La cantidad de numeros pares es de :',ContadorPar);

writeln('la suma de los numeros Impares es de: ',sumaImpar);
writeln('El promedio de los numeros Impares es de:', SumaImpar/ContadorImpar);
writeln('La cantidad de numeros Impares es de :',ContadorImpar);

readkey;
end.

creo que no falta nada

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar