Говнокод

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

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

Запостил:

informatikmarazmatik, 16.05.2012 (Updated 25.03.2018)

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

informatikmarazmatik 14 лет ago # 0

зы положительные четные числа от 1 до 100
Ответить
bormand 14 лет ago # 0

й
Ответить
- roman-kashitsyn 14 лет ago # 0 ⇈
  опция командной строки?
```
-q Quite
-й ЗакроЙ рот
```
  Ответить
eth0 14 лет ago # 0

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

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