Школоло / Говнокод #256 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 guest, (Updated )

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

      • ava guest # 0 ⇈

        Путешествия: Туристические Агенства

        TRAVELMIR/GREEN LIGHT TOURS TRAVELMIR/GREEN LIGHT TOURS
        Агентство, которое Вы искали
        http://www.travelmir.com

        1811 Avenue P.
        Brooklyn, NY 11229 (карта)
        Телефон: (718) 234-0787

        ALLIstanbulTours.com ALLIstanbulTours.com
        Одна нация Туристическое агентство здесь, чтобы служить своей поездки все через Турцию. Мы специализируемся на всех Турции Туры по ОАЭ, Эфес туры, туры Галлиполи, Анзак Однодневные экскурсии, туры ...
        http://www.allistanbultours.com

        255 West 36th Street, Suite 800 New York
        New York, NY 10018 (карта)
        Телефон: (800) 961-5117 Факс: 19175917556

        Ancore Transportation Services
        Транспортная компания , предоставляет 2013 года спринтер Мерседес ( 14 пассажиров ) для локальных и дальних экскурсий , туров , а так же , другие услуги ( свадьбы , дни рождения и тд. ) Мерседес ...

        12303 Runnymede st. #3
        North Hollywood, CA 91605 (карта)
        Телефон: (818) 326-9246 Факс: 818-760-8480

        EIH Travel Inc.
        Путешествия по Америке. Индивидуальные экскурсии (по ценам групповых) на машине от 2 до 12 человек. Не лежите на диване.Отправляйтесь с нами в путь. Что б забыть про все заботы и душою отдохнуть. ...
        http://www.usatravelru.com

        1821 Creekview Ln
        Jamison, PA 18929 (карта)
        Телефон: (267) 483-5289

        Hawaii with Russian Guide
        Звоните на Гаваи, говорим по русски телефон (808) 384-2076

        1255 Nuuanu
        Honolulu, HI 96817 (карта)
        Телефон: (808) 384-2076

        NEW TOURS USA NEW TOURS USA
        22 года в бизнесе. Принимающий тур оператор, все штаты США и Канада. Русские туры с ...
        http://www.newtours.us



        _______
        Ответить

    • ava guest # 0 ⇈

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

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

      • ava guest # 0 ⇈

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

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

      • ava nepekam # Ссылка на оригинал 0 ⇈

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

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

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

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓