Necesito Ayuda con Programación en Delphi

[carlospeters]

ok hice lo siguiente para probar en el caso que el numero fuera par y quisiera agregarlo al memo hice lo siguiente

//Datos
n:=strtofloat(Inputbox('Ingrese Valor','Ingrese el Valor de n:',''));

//Operacion
if n mod 2 = 0 then Memo1.Lines.Add(FloatToStr(n));
else
ShowMessage('No es Par');


end;

pero el Delphi me dice Operator not applicable y me selecciona el n mod 2

Ya me di cuenta el error puse N como un Float y tiene q ser Integer lo siento ando desesperado

[[gatosoft]]

Yo diria que:

Código Delphi [-]
Var n, i: Integer;
     contador, suma : Integer;
Begin
 n:= StrToInt(Edit1.text);
 contador :=0;
 suma:=0;
 For i:= 1 to n do
 begin 
    if (i mod 2 = 0) and ( not (i mod 10 = 0) ) then
      begin
        Memo1.lines.add(IntTostr(i));
        inc(contador);
        suma.= suma + i;
      end;//if
end;//for i

Memo1.lines.add('El Promedio es: '+FloattoStr(Suma/contador));

bueno la condicion puede ser como te plasca (o te resulte mas legible), siempre y cuando el resultado sea el mismo

Código Delphi [-]
   
 if (i mod 2 = 0) and ( not (i mod 10 = 0) ) then

Ó

    if (i mod 2 = 0) then 
       if (i mod 10 <> 0) ) then

saludos,