Ayuda
 

hola.. soy yo .. otravej ando molestandolos ... ahora es con este ejercicio
LEER CUATRO NUMEROS Y DETERMINAR SI UNO DE LOS NUMEROS ES CERO SI UNO DE LOS NUMEROS ES CERO IMPRIMA CERO CASO CONTRARIO IMPRIMA NO//
bueno ami me sale.. pero con los 4 numero me salen [color=red]4 veces no o 4 veces 0
como hago para que solo me salga una vez cero si hay 0 en los 4 numeros oh no si no hay un 0 en los 4 numeros

Código Delphi [-]
var
n1,n2,n3,n4:cnumeronatural;
x:integer;
begin
  n1:=cnumeronatural.crear;
  n2:=cnumeronatural.crear;
  n3:=cnumeronatural.crear;
  n4:=cnumeronatural.crear;
  Writeln('Digite  N1');
  readln(x);
  N1.AsignarValor(x);
  Writeln('Digite  N2');
  readln(x);
  N2.AsignarValor(X);
  Writeln('Digite  N3');
  readln(x);
  N3.AsignarValor(X);
  Writeln('Digite  N4');
  readln(x);
  N4.AsignarValor(X);
  if n1.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n2.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n3.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n4.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  readln;

gracias

Hola

Código Delphi [-]
if n1.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');
if n2.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');
if n3.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');

Si el valor es = a Cero (0) ?.
Saludos
PD: Con un titulo asi (ayuda), lo menos que vas a recibir es eso.
Lee la guia del foro.;)

Te digo lo mismo que ha dicho Caral, lee la guía de estilo, gracias por tu colaboración.

Bueno si lo dicen por las mayusculas.. lo siento... cuando quise editarlo.. ya no podia por que ya abian respondido...
y graciaj por su ayuda (-.-)

Se ve que no has leído la guía de estilo ;)

lo siento por no leer.. solo estoy unoj minutos.. en internet... a ver si me responden.. pero bueno cuando pueda... lo ago ... ok

Hola luisito2011.

Si no te liás con la terminología y el código, el problema es muy pero muy sencillo... Se reduce a: Si hay una variable cuyo valor sea 0,
mostrar 'Cero' sino mostrar 'No', entonces:

Código Delphi [-]
  if (n1.ObtenerValor=0) or (n2.ObtenerValor=0) or
     (n3.ObtenerValor=0) or (n4.ObtenerValor=0) then
   Writeln('Cero')
  else
   Writeln('No');

Un saludo.