t_id
714
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
program prueba; uses crt; var i,resultado,exponente:integer; begin exponente := 3; resultado := -1 ** exponente; writeln (resultado); if resultado<>-1 then Halt(1); exponente := 4; resultado := -(1 ** exponente); writeln (resultado); if resultado<>-1 then Halt(1); resultado := (-1) ** exponente; writeln (resultado); if resultado<>1 then Halt(1); i:=1; resultado := - i ** exponente; writeln (resultado); if resultado<>-1 then Halt(1); resultado := -1 ** exponente; writeln (resultado); if resultado<>-1 then Halt(1); end.