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

    • ava TarasB 30.03.2011 11:16 # 0

      школолаба
      уныло
      Ответить

      • ava Lure Of Chaos 30.03.2011 13:47 # +2

        ...было бы, если бы не сии замечательные строки:
        > then writeln('LOADING...');
        > 'Obshie symaя='
        Ответить

      • ava guest 15.04.2011 09:28 # 0

        угу пару лет назад, в 11 классе каждый урок ит мы с другом находили на рабочих столах тонны такого говнокода и хором ржали. и плакали. особенно над отсутствием табуляции
        Ответить

    • ava Vasiliy 30.03.2011 14:00 # 0

      writeln('LOADING...'); Супер
      Ответить

    • ava SadKo 30.03.2011 19:22 # +1

      А оно вообще скомпилируется? Насколько помню, паскаль крайне не требовал точку с запятой перед else.
      Ответить

    • ava Skull 30.03.2011 19:42 # 0

      7 класс)
      Ответить

    • ava Vasiliy 30.03.2011 20:41 # 0

      Признаки делимости в школах более не проходят .... И правда зачем, что там 899 циферей перебрать. Одно радует что только количество трехзначных чисел а не скажем десяти.
      Ответить

      • ava wiapsy 30.03.2011 22:46 # 0

        Все можно написать одной строкой и признаки делимости для этого не нужны. Тем более признак делимости на 7 достаточно сложен для простого школьника, желающего реализовать его проверку на паскале.
        Что самое ужасное, нашел я этот говнокод на одном форуме, где во всех, абсолютно во всех предлагаемых решениях используется переборка 900 чисел.
        Ответить

    • ava guest 01.04.2011 15:41 # 0

      900 - 900 / 5 - 900 / 7 + 900 / (5 * 7)

      потом в else должно быть ++s;
      Ответить

    • ava guest 05.04.2011 10:05 # 0

      Да вы упадите, где вы здесь подсчет количества чисел увидели? =)
      Ответить

    • ava Uchkuma 11.04.2011 14:26 # 0

      исчисление числа чисел в числовом эквиваленте
      Ответить

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