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

    +147

    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
    program s_27;
uses crt;
function SummaCifr(n:integer):byte;

var s,
    x:integer;
{----------------------------------------------------------------------------}
begin
  clrscr;
  s:=0;
  x:=n;
  while x>0 do begin
    s:=s+(x mod 10);

    x:=x div 10;
  end;
  SummaCifr:=s;
end;
{----------------------------------------------------------------------------}
var i,k:integer;
begin
  i:=2;
  k:=99;
  while SummaCifr(k)<>27 do
  begin
    k:=i*99;
    inc(i);
  end;
  WriteLn('Rezult:',k);
  ReadLn;
end.

    поиск числа!

    Запостил: ITdocer, 23 Октября 2011

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

    • ava Dummy00001 24.10.2011 01:55 # +1

      > {----------------------------------------------------------------------------}

      мля.... начинаю ностальгировать по пасцалевым коментариям... как давно это было... как все просто было в те времена...
      Ответить

      • ava guestGovno 24.10.2011 04:24 # 0

        В ваше время на клавиатурах уже были фигурные и квадратные скобки. (* Вот это были комментарии, это я понимаю... *)
        Ответить

        • ava Dummy00001 24.10.2011 12:49 # 0

          не. я это точно помню из дискуссий паскаль против С: двусимвольные символы для комментариев сосут.

          наличие {/} комментариев - и само собой разумеется begin/end - есть основное премущество паскаля по сравнению с С. если мне память не изменяет, то С сосет. там ничего кроме возможности писания обработчиков прерываний без асма уникального нет.

          :-p
          Ответить

          • ava AnimeGovno-_- 25.10.2011 12:10 # −2

            >begin/end - есть основное премущество паскаля по сравнению с С++
            В С++ они тоже появились. см std::begin\std::end.
            В си используй #define
            Ответить

            • ava guestGovno 25.10.2011 13:06 # 0

              Чо, риальне? Прям сплю и вижу.
              if (a std::= b) std::then
std::begin
  std::WriteLN('!!!'); std::{ Takih chisel est! std::}
std::end
              Ответить

              • ava AnimeGovno-_- 25.10.2011 14:54 # −1

                да ты std::begin ещё пользоваться не научился, а туда же...

                Я же пишу так:
                if (a == b) then
begin
  WriteLN('!!!');
end
                Юзай дифайн
                Ответить

    • ava guest8 09.04.2019 11:48 # −999

      показать все, что скрытоvanished
      Ответить

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