666

0

No wiesz, jak weźmiesz słowo "kosciol" i zapiszesz je w numerkach ASCII, to ci wyjdzie 756. Gdy teraz odejmiesz od siódemki jedynkę, dodasz ją do piątki, to wyjdzie 666. Czyżby kościół też był narzedziem szatana? Nie wydaje mi się, żeby Billowi Gatesowi zależało na zniszczeniu świata. Gdzie by potem trzepał tyle pieniędzy?

0

trochę to naciągane :-D , co ja mówie, bardzo naciągane :-D
nie wiem czy na forum umysłów ścisłych ktoś w takie bajki zawierzy...

0

Ja w to wierze ;p

0

4 - 52;
p - 112;
r - 114;
o - 111;
g - 103;
r - 114;
a - 97;
m - 109;
m - 109;
e - 101;
r - 114;
s - 115;
. - 46;
n - 110;
e - 101;
t - 116
52 + 112 + 114 + 111 + 103 + 114 + 97 + 109 + 109 + 101 + 114 + 115 + 46 + 110 + 101 + 116 - 958 = 666 !!
Adam will rule the World :P

Dopisane:
Nie ma to jak programista umiacy liczyc ;p

0

A na Discovery mowili, ze ten co napisal Apokalipse (bodajze sw. Jan:) ) mial na mysli Nerona. I tez pokazywali jakies przekrztalcenie z Naeron na 666:) Z tym, ze juz bez wykozystywania ASCII;P.

O ile mnie pamiec nie myli (a pewnie mnie myli:) ) to mowili tezn o dowodzie, ze koles mial na mysli Nerona:)

0

to ja nie wiem czy w koncu nerona, czy nerona....

0

Faszczu miał rację!! Tylko źle się do tego zabrał. Oto dowód:

const
  Slowo = '4programmers';
  Adam = 44; //Jakby ktoś nie wiedział, to 44 oznacza imię Adam (np. w Dziadach)
var
  i, S: Integer;
begin
  S := 0;
  for i := 1 to Length(Slowo) do
  begin
    S := S + Ord(Slowo[i]) div 2; //Jak można nie dzielić przez najważniejszą liczbę programistów ;)
  end;
  ShowMessage(IntToStr(S+Adam));
end;

Adam ty bestio ;)

0

Gdzieś w jakiejś książce dla dewotów widziałem przekształcenie wyrazu "komputer" na 666 :-) . czyba numerowało sie po kolei litery od a-z i po dodaniu tych z "komputer" pomnożeniu przez 6 wychodziło 666 :-D . (a tak przy okazji to mój id użytkownika na 4p to 666 [diabel] , chociaż z satanizmem sie nie utożsamiam i w ogóle to raczej jestem antysatanistą [angel] ).

0

Czyżby każdy z nas miał w sobie szatana ?

function asciiValue(slowo : string) : integer;
var
  i : Integer;

begin
  result := 0;
  for i := 1 to Length(Slowo) do
    result := result + Ord(Slowo[i]);
end;

begin
     showMessage(intToStr(
       // zwykłe dodawanie i odejmowanie na przemian

       asciiValue('Dryobates')-
       asciiValue('Vogel')+
       asciiValue('Lofix')-
       asciiValue('AndRew')+
       asciiValue('Pedros')-
       asciiValue('Sheitar')+
       asciiValue('Faszczu')-
       asciiValue('piechant')+
       asciiValue('pq')-
       asciiValue('Szymek')+
       asciiValue('LKS')-
       asciiValue('thenkles')+
       asciiValue('Johnny_Bit')-
       asciiValue('Ktos')+
       asciiValue('Marooned')-
       asciiValue('TrOuBLE')+
       asciiValue('Roszi')-
       asciiValue('Drajwer')+
       asciiValue('spin')-
       asciiValue('my_nick')+
       asciiValue('Adam Boduch')-
       asciiValue('.:DETOX:.')+
       asciiValue('Sebek')-
       asciiValue('Berl')+
       asciiValue('kuba_e')-
       asciiValue('ikari')+
       asciiValue('Juchas')-
       asciiValue('DJ_Japcok')+
       asciiValue('wesoledi')
     ));
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0