1. Pascal / Говнокод #256

    −20.5

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    function find7(S:string):integer;
var
MyArray : TStringList;
n,i,sum, Resultat : integer;
MyInt : String;
begin
MyArray := TStringList.Create;
Trim(S); n:= 0;
while(Length(s)>0) do begin
Trim(S);
if(Pos(' ',S)=0) then begin
MyArray.Insert(n,Copy(S,1,Length(S)));
break;
end else begin
  if(Copy(S,1,Pos(' ',S))=' ') then begin
  Delete(S,1,(Pos(' ',S)));
  end else begin
    MyArray.Insert(n,Copy(S,1,Pos(' ',S)));
    Delete(S,1,(Pos(' ',S)));
    n:=n+1;
    end;
end;
end;
  Resultat := 0;
  for i := 0 to MyArray.Count-1 do begin
    MyInt := MyArray.Strings[i]; Sum := 0;
    for n := 1 to Length(MyInt) do begin
      if(MyInt[n]='7') then Sum := Sum + 1;
    end;
    if(Sum>=2) then Resultat := Resultat + 1;
  end;
  Result := Resultat;
end;

    Жуть...

    Запостил: guest, 24 Декабря 2008

    Комментарии (7) RSS

    • ava guest 11.08.2009 04:24 # 0

      Автор - http://juick.com/unreturned/
      Пруф: http://juick.com/220056#5
      Ответить

    • ava guest6 04.01.2023 20:05 # 0

      ого
      Ответить

      • ava guest6 04.01.2023 20:35 # −3

        Сколько говнокоду лет?

        Что будет, если страйкер помрёт от старости?
        Ответить

        • ava guest6 04.01.2023 20:43 # 0

          Говнокоду четырнадцать лет

          Если старкер помрет от старости, то через после последней оплаты домен .ru уйдет в свободное плаванье, а VPSка и того раньше
          Ответить

        • ava nepekam 04.01.2023 21:22 # 0

          >Что будет, если страйкер помрёт от старости?

          Дарлинг, ты бы был аккуратнее в выражениях... Это всё равно, что сказать "когда ким чен ын умрет от старости - что будет?.." За такое и из зенитки могут поддать.
          Ответить

    Добавить комментарий