Буду знать что тут есть такое отличная команда ПРОДОЛЖИТЬ ) как мне её не хватало!!
Добавлено через 44 минуты
Уфф! Как же все таки трудно дается!! Но готово:
Ïðîöåäóð&# 224; Ñôîðìèðî&# 226;àòü()
Ñïð=Ñîçäà& #242;üÎáúåêò("& #209;ïðàâî÷í 32;ê.Íîìåíê 5;àòóðà");
Ñïð2=Ñîçäà òüÎáúåêò(" Ñïðàâî÷í&# 232;ê.Íîìåíê 35;àòóðà");
Ñïð3=Ñîçäà òüÎáúåêò(" Ñïðàâî÷í&# 232;ê.Íîìåíê 35;àòóðà");
Äëÿ Âñïîì=1 Ïî 10 Öèêë
Ñïð3.Âûáðà òüÝëåìåí&# 242;û();
ÌàêñÊîä=×& #232;ñëî(Ñïð3.Ê îä);
Ïîêà Ñïð3.Ïîëó÷ èòüÝëåìå&# 237;ò()=1 Öèêë
Åñëè ×èñëî(Ñïð3 .Êîä)>ÌàêñÊ ;îä Òîãäà
ÌàêñÊîä=×& #232;ñëî(Ñïð3.Ê îä);
ÊîíåöÅñë&# 232;;
ÊîíåöÖèê&# 235;à;
Ñïð.Âûáðà& #242;üÝëåìåí 42;û();
Ïîêà Ñïð.Ïîëó÷& #232;òüÝëåìå 37;ò()=1 Öèêë
Êîä=Ñïð.Êî ä;
Ïîêà ÑòðÄëèíà(& #202;îä)<9 Öèêë
Êîä="0"+Êîä;
ÊîíåöÖèê&# 235;à;
Åñëè Êîä = Ñïð.Êîä Òîãäà
Ïðîäîëæè&# 242;ü;
ÊîíåöÅñë&# 232;;
Ñïð2.Âûáðà òüÝëåìåí&# 242;û();
Ïîêà Ñïð2.Ïîëó÷ èòüÝëåìå&# 237;ò()=1 Öèêë
Åñëè Êîä=Ñïð2.Êî ;ä Òîãäà
Ñïð2.Êîä=Ìà ;êñÊîä+1;
Ñïð2.Çàïèñ àòü();
ÊîíåöÅñë&# 232;;
ÊîíåöÖèê&# 235;à;
Ñïð.Êîä=Êî ä;
Ñïð.Çàïèñ& #224;òü();
ÊîíåöÖèê&# 235;à;
ÊîíåöÖèê&# 235;à;
ÊîíåöÏðî&# 246;åäóðû
Добавлено через 46 минут
апплодисменты в студийу!
у меня виста. и кодировка "текущая системная". так что прошу прощения.