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

    • ava informatikmarazmatik 16.05.2012 16:53 # 0

      зы положительные четные числа от 1 до 100
      Ответить

    • ava bormand 16.05.2012 17:10 # 0

      й
      Ответить

    • ava eth0 16.05.2012 19:51 # 0

      Если бы это был не 1с, я бы сказал, что это какая-то упоротая лаба. С другой стороны, это может быть хитрым планом, как сделать очевидную вещь неочевидным способом.
      Ответить

    • ava guest 09.06.2012 10:22 # 0

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

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