1. Куча / Говнокод #6122

    +138

    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
    uses crt;
    var c1,c2,c3,k,s:integer;
    begin
    clrscr;
    s:=0;
    for c1:=1 to 9 do
    for c2:=0 to 9 do
    for c3:=0 to 9 do
    k:=c1*100+c2*10+c3+k;
    if (k mod 5 =0) then writeln('LOADING...');
    else if (k mod 7 = 0) then writeln('LOADING...');
    else s:=s+k;
    writeln('Obshie symaя=',s);
    readln;
    end.

    Вот как можно посчитать количество всех трехзначных чисел, которые не делятся на 5 или 7.

    Запостил: wiapsy, 29 Марта 2011

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

    • школолаба
      уныло
      Ответить
      • ...было бы, если бы не сии замечательные строки:
        > then writeln('LOADING...');
        > 'Obshie symaя='
        Ответить
      • угу пару лет назад, в 11 классе каждый урок ит мы с другом находили на рабочих столах тонны такого говнокода и хором ржали. и плакали. особенно над отсутствием табуляции
        Ответить
    • writeln('LOADING...'); Супер
      Ответить
    • А оно вообще скомпилируется? Насколько помню, паскаль крайне не требовал точку с запятой перед else.
      Ответить
    • 7 класс)
      Ответить
    • Признаки делимости в школах более не проходят .... И правда зачем, что там 899 циферей перебрать. Одно радует что только количество трехзначных чисел а не скажем десяти.
      Ответить
      • Все можно написать одной строкой и признаки делимости для этого не нужны. Тем более признак делимости на 7 достаточно сложен для простого школьника, желающего реализовать его проверку на паскале.
        Что самое ужасное, нашел я этот говнокод на одном форуме, где во всех, абсолютно во всех предлагаемых решениях используется переборка 900 чисел.
        Ответить
    • 900 - 900 / 5 - 900 / 7 + 900 / (5 * 7)

      потом в else должно быть ++s;
      Ответить
    • Да вы упадите, где вы здесь подсчет количества чисел увидели? =)
      Ответить
    • исчисление числа чисел в числовом эквиваленте
      Ответить

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