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
<?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