Sigue sin andar che, el finde lo veo.
Que apurados (?)

No, no estoy apurado Jajaja
Se me dio por probar porque lo vi muy activo al topic.
Igual algo modificaron, porque el barraene desaparece por arte de magia y crea un salto de línea.

Por ej.:

HOLA (acá empieza el barraene) '\n' (acá termina el barraene) CHAU

---

Bueno, ahora me tomó de pelotudo Jajaja No hizo lo que me hacía antes.

(13-04-2012 11:03)brunodiaz escribió:  no se de que hablas.

Cuando estás en la respuesta correcta, abajo se ven las respuestas anteriores

Entonces se pierde el formato que tiene el tag code y se ve todo como texto plano; hay print tambien

(13-04-2012 11:19)nanuiit escribió:  

(13-04-2012 11:03)brunodiaz escribió:  no se de que hablas.

Cuando estás en la respuesta correcta, abajo se ven las respuestas anteriores

Entonces se pierde el formato que tiene el tag code y se ve todo como texto plano; hay print tambien

????
Eso no pasa en produccion.

 program triangulo;

var  l1,l2,l3:real;

     cant: byte;

     tipo: byte;



function estriangulo(l1,l2,l3:real):boolean;

begin

            if (l1+l2>l3) and (l1+l3>l2) and (l2+l3>l1)

              then

                estriangulo:= true

              else

               estriangulo:= false;

end;



procedure tipotriangulo(l1,l2,l3:real;var tipo:byte);

begin

     if (l1=l2) and (l2=l3) then

       tipo:=1

    else

    if (l1=l2) or (l2=l3) or (l1=l3) then

      tipo :=2

    else

      tipo:=3 ;

 end;



procedure contartipotriangulo(tip:byte; var  eq,iss,esc:byte);

begin

       if  tip=1 then

       eq:=eq+1

       else if tip=2 then

       iss:=iss+ 1

       else esc:=esc +1;





end;





var

   eq,iss,esc: byte;





begin



      eq:=0;

      iss:=0;

      esc:=0;

      cant:=0;

      writeln ('Ingrese una terna de valores');

      readln (l1,l2,l3);

      while (l1>0) or (l2>0) or (l3>0) do

        begin

         if estriangulo(l1,l2,l3)

           then

           begin

                cant:=cant+1;

                tipotriangulo(l1,l2,l3,tipo);

                contartipotriangulo(tipo,eq,iss,esc);

           end;



             writeln (cant);

             writeln ('Ingrese otra terna de valores: ');

             readln (l1,l2,l3);

        end;

      writeln ('La cantidad de triangulos es: ',cant);

      writeln (eq, iss, esc);

      readln;

end.

 Program MI5;

uses crt;

var

a,b:word;

Begin

clrscr;

writeln ('Ingrese un numero entero positivo');

readln (a);

writeln ('Ingrese un numero entero positivo distinto al anterior');

readln (b);

if a > b

then writeln('El mayor es ',a)

else writeln('El mayor es ',b)

end.

 

import sys

import os

import commands



print sys.version

print os.name

print commands.getstatusoutput('fdisk -l')

print commands.getstatusoutput('ls -a')

En la vista previa no se ve

awww no me dejaron ver cuanto pr0n tenian guardado en el server. Gorras

(13-04-2012 22:22).py escribió:  

 

import sys

import os

import commands



print sys.version

print os.name

print commands.getstatusoutput('fdisk -l')

print commands.getstatusoutput('ls -a')

Compilar y ejecutar código

En la vista previa no se ve

awww no me dejaron ver cuanto pr0n tenian guardado en el server. Gorras

Buen intento!

 

<?php

$rand = rand()%15;



for($i = 0; $i < $rand; $i++)

{

      echo $i."\n";

}

?>

Muy buena prueba che.
El codigo se compila y ejecuta una sola vez, asi que siempre va a devolver el mismo resultado.

(15-04-2012 16:30)brunodiaz escribió:  Muy buena prueba che.
El codigo se compila y ejecuta una sola vez, asi que siempre va a devolver el mismo resultado.

Lo note, esta muy bueno si lo agregas a la vista previa como dijeron mas arriba va a estar mejor.

PD: Muy buena la idea ¿se te ocurrio a vos?

(14-04-2012 14:30)brunodiaz escribió:  Buen intento!

no me dejaste llenar el rigido con lo que salga de /dev/random =(

 print("<script>alert('hola mundo')</script>")

podemos probar hacer algun XSS jajajaja , seria genial