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

    +88

    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
    program One;

var
  a, b, c: integer;

begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  read(a);
  if a = 5 then
    Writeln('25')
  else if (a div 5 = 1) 
    then
    Writeln('Введите число, оканчивающееся на 5!')
  else begin
    b := a div 10;
    c := b * (b + 1);
    Writeln(c, '25');
  end;
end.

    Запостил: Dexius, 06 Октября 2014

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

    • ava gost 07.10.2014 07:39 # 0

      12.
      Ответить

      • ava inkanus-gray 07.10.2014 08:34 # 0

        42.
        Ответить

        • ava gost 07.10.2014 09:57 # +1

          >>> else if (a div 5 = 1)
          >>> then
          >>> Writeln('Введите число, оканчивающееся на 5!')
          Ответить

          • ava inkanus-gray 07.10.2014 10:59 # +1

            Код будет ругаться, только если число оканчивается на 1 или на 6. Во всех остальных случаях программа думает, что число оканчивается на 5.
            Ответить

            • ava gost 07.10.2014 13:55 # +1

              Вот я об этом и говорю.
              Ответить

            • ava chernykot 22.02.2015 16:51 # 0

              Да ну. Код будет ругаться если a находится в промежутке [6..9] т.к. div находит частное от деления, а вот mod остаток от деления.
              Ответить

    • ava inkanus-gray 07.10.2014 08:33 # 0

      А файл кто закрывать будет?
      Ответить

      • ava Vasiliy 07.10.2014 10:51 # 0

        DOS
        Ответить

        • ava inkanus-gray 07.10.2014 11:02 # 0

          TP буферизует вывод, поэтому для того, чтобы вывод записался полностью, файл нужно закрыть средствами библиотеки TP. К счастью, в стандартной библиотеке есть код, который после исполнения блока begin...end. автоматически закрывает дескрипторы Input и Output. К несчастью, это приводит к плохому стилю программирования.
          Ответить

      • ava TarasB 07.10.2014 13:22 # 0

        автодиструктар
        Ответить

    • ava betking1 27.11.2014 15:44 # 0

      а что вам в этом коде студента не нравится??? Если это написано после HelloWorld то норм код
      Ответить

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