- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
Тз = СоздатьОбъект("ТаблицаЗначений");
Тз.НоваяКолонка("Число");
Для й=1 По 100 Цикл
Тз.НоваяСтрока();
Тз.Число = й;
КонецЦикла;
КоличествоСтрокТз = Тз.КоличествоСтрок();
Для й=-КоличествоСтрокТз По -1 Цикл
ЗначениеИзТз = Тз.ПолучитьЗначение(-й,"Число");
ПроверяемоеЗначение = ЗначениеИзТз/2-Цел(ЗначениеИзТз/2);
Если ПроверяемоеЗначение <> 0 Тогда
Тз.УдалитьСтроку(-й);
КонецЕсли;
КонецЦикла;
Тз.ВыбратьСтроку();
informatikmarazmatik 16.05.2012 16:53 # 0
bormand 16.05.2012 17:10 # 0
roman-kashitsyn 16.05.2012 17:14 # 0
eth0 16.05.2012 19:51 # 0
guest 09.06.2012 10:22 # 0
неужто нельзя было чётные сделать так
сделать так:
Для й=1 По 50 Цикл
Тз.НоваяСтрока();
Тз.Число = й*2;
КонецЦикла;