ребус таков ветка+ветка=дерево
вот программмка, которая некорректно работает. Помогите найти ошибку.
program set2;
type mn=set of 0..9;
var v,e,t,k,a:0..9; n1,n2:integer;
d,e2,r,e3,v2,o:0..9; s1,s2:mn;
procedure out(x,y:integer);
Begin
.writeln(x:5);writeln('x');writeln(x:5);writeln('-');writeln(y:5);
End;
Begin
s1:=[]; s2:=[];
.for v:=5 to 9 do begin s1:=s1+[v];
.for e:=0 to 9 do begin
.. if not(e in s1) then s1:=s1+[e];
.for t:=0 to 9 do begin
.. if not(t in s1) then s1:=s1+[t];
.for k:=0 to 9 do begin
.. if not(e in s1) then s1:=s1+[k];
.for a:=0 to 9 do begin
.. if not(a in s1) then s1:=s1+[a];
.n1:=v*100000+e*10000+t*1000+k*100+a*10;
.n2:=2*n1;
.d:=n2 div 100000;
.e2:=n2 div 10000 mod 1000;
.r:=n2 div 1000 mod 100;
.e3:=n2 div 100 mod 10;
.v2:=n2 div 10 mod 10;
.o:=n2 mod 10;
.s2:=[d,e2,r,e3,v2,o];
. if (s1*s2=[]) and
.([d]*[e2]+[d]*[r]+[d]*[e3]+[d]*[v2]+[d]*[o]+[e2]*[r]+[e2]*[e3]+[e2]*[v2]+[e2]*[o]+[r]*[e3]+[r]*[v2]+[r]*[o]+[e3]*[v]+[e3]*[o]+
[v]*[o]=[])
. then out(n1,n2);
. s1:=s1-[a];end;
. s1:=s1-[k] end;
. s1:=s1-[t] end;
.s1:=s1-[e] end;
.s1:=s1-[v] end;
readln;
End.
Подскажите, где найти описание класса string для c++
Если ссылка на файл имеет прямой путь типа: myhost. com/ file.exe –
скопировать файл не состовляет особой трудности, применение той же фуенкции copy.
Вот а если путь к файлу осуществляется через скрипт например: myhost .com/in. php ? id=5
как можно осуществить копирование в данном случае?!?!?
Господа программиты во такой вопрос.
Как мне отправить письмо другу тчо бы в графе от кого было не мой адрес а нпример support@mail.ru ну или другой какой нить желательно с применениме прогамм Socks Chain и Advanced Direct Remailer.Заранее спасибо.
Как сделать подтверждение на удаление записи таблицы?
Есть ссылка которая ведет на страницу со скриптом удаляющим запись с базы данных. Как по нажатию на КНОПКУ удаления выводить предупреждение( типа да? нет?)?
Помогите/
Доброго времени суток, господа)
Я готовлю доклад на международную конференцию "Актуальные проблемы современной экономики" на тему "Мотивация IT-персонала". Прошу Вашей помощи: ответьте на небольшую анкету(всего 3 вопроса), приведенную ниже. Все статистические данные, по Вашему желанию, будут опубликованы здесь.
Собственно, анкета.
1.Что для Вас стало наиболее и наименее решающим при выборе места работы (проранжировать по степени важности от 1 до 5)?
а) возможность заниматься именно этим видом деятельности
б) з/п
в) доп.: соц.пакет и др.
г) коллектив в компании
д) условия работы (кабинет, график работы)
2.Назовите факторы, которые Вы считаете отрицательными качествами компании, в которой сейчас работаете, или в которой работали ранее
а) не устраивает з/п
б) отсутствие соц.пакета и т.д.
в) отсутствие карьерного роста
г) условия труда далеки от хороших
д) разносторонние обязанности
е) необходимость общения с клиентами и т.д.
ж) некомпетентность начальства, а, следовательно, затруднение коммуникаций
3.Укажите причину Вашего увольнения с предыдущего места работы (если имело место)
Заранее спасибо.
Хостинг-провайдер SpaceWeb, один из лидеров на рынке IT-технологий, в связи с расширением приглашает на работу Разработчика Perl. Мы предлагаем стабильную работу с прямой перспективой профессионального и карьерного роста.
Требования:
1.Опыт разработки web-приложений от 2-х лет.
2.Хорошее знание Perl.
3.Хорошее знаниеMySQL.
4.Понимание общих принципов работы Unix-систем.
Вы можете пройти тест на знание Perl технологии на нашем сайте //try.sweb.ru/
Обязанности:
1.Разработка и поддержка внутренних проектов компании.
2.Разработка и внедрение биллинг-систем..
Условия работы:
Наша компания предлагает высокую з/п, соответствующую вашему опыту, знаниям и талантам; отличные возможности для профессионального и личностного роста, а также гарантирует соблюдение ТК по всем статьям.
Полный рабочий день в офисе (ст. м. Петроградская).
Компенсация единого проездного билета, обеды в офисе.
В случае заинтересованности, пишите в личку, или шлите резюме на hr@sweb .ru
Требуется программист 1С, 8х!!!! Вопросы в личку! з/пл от 45 до 60 т.р.
Подскажите, пожалуйста какую-либо хорошую книгу по взаимодействиию C++Builder и Windowsовских программ, конкретно нужно узнать функцию через которую можно запустить Word, Winamp или Opera по нажатию кнопки в программе, пишушейся на C++Builder, так же буду очень признательна, если расскажите какой функцией можно задать выключение компьютера в заданное время. И ещё очень нужны функции взаимодействия с системным временем.
Перехожу на Убунту и встала такая проблема – сред для написания кода много, не спорю(имеются ввиду редакторы с подсветкой синтаксиса и другими вкусностями), но вот какой программой отлаживать свой код? в винде все ясно – создано много IDE со встроенными отладчиками(Turbo pascal, delphi, borland c++, MS VS….). Попытался поставить code::blocks – ругается что либы старые…. да и как я посмотрю, многие пишут код в том же VIMе….. но ведь чем то же они выполняют отладку….. Просто все устраивает и радует в никсах, а вот как быть с кодингом….
языки программирования – с/с++ и паскаль(для универа еще нужен(( )
Заранее спасибо!
У меня есть скрипт который обрабатывает закаченные doc файлы:
$word = new COM("word.application");
$word->Documents->Open($filename);
$word->Selection->Font->Name = 'Verdana';
$word->Selection->Font->Size = 8;
$word->Documents[1]->Save();
$word->quit();
Кто-нибуть знает как реализовать:
1. при выполнении Open не запускать АвтоМакросы (Если честно не знаю открываются они или нет, но недавно удалил тьму вирусов с сервака=)))
2. После безопасного открытия удалить все макросы из файла
3. Как видно из скрипта ворд запускается при каждом обращении к скрипту. Есть ли вариант не запускать новый, а обратиться к уже открытому экземпляру Ворда?(в сессию com-бъект сохранить нельзя, но если ворд не закрыть он продолжит висеть в памяти) При этом надо учитывать что скрипт может одновременно запускаться несколько раз, что бы не было конфликтов при обращении к одному и тому же экземпляру Ворда.