1. Список говнокодов пользователя Dexius

    Всего: 1

  2. 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)