1. 1C / Говнокод #10292

    −115

    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
    Тз = СоздатьОбъект("ТаблицаЗначений");
    	Тз.НоваяКолонка("Число");
    	Для й=1 По 100 Цикл
    		Тз.НоваяСтрока();
    		Тз.Число = й;
    	КонецЦикла;
    	КоличествоСтрокТз = Тз.КоличествоСтрок();
    	Для й=-КоличествоСтрокТз По -1 Цикл
    		ЗначениеИзТз = Тз.ПолучитьЗначение(-й,"Число");
    		ПроверяемоеЗначение = ЗначениеИзТз/2-Цел(ЗначениеИзТз/2);
    		Если ПроверяемоеЗначение <> 0 Тогда
    			Тз.УдалитьСтроку(-й);
    		КонецЕсли;
    	КонецЦикла;
    	Тз.ВыбратьСтроку();

    Четные числа до 100

    Запостил: informatikmarazmatik, 16 Мая 2012

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

    • зы положительные четные числа от 1 до 100
      Ответить
    • й
      Ответить
    • Если бы это был не 1с, я бы сказал, что это какая-то упоротая лаба. С другой стороны, это может быть хитрым планом, как сделать очевидную вещь неочевидным способом.
      Ответить
    • Абалдеть. А если прям захотелось,
      неужто нельзя было чётные сделать так
      сделать так:
      Для й=1 По 50 Цикл
      Тз.НоваяСтрока();
      Тз.Число = й*2;
      КонецЦикла;
      Ответить

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