ребус таков ветка+ветка=дерево
вот программмка, которая некорректно работает. Помогите найти ошибку.
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.
4 мая 2008 в 13:03
Самый лучший вариант заработка в интернете! От вас не требуется никаких вложений! просто заходите на сайт каждый день на 10 минут и зарабатывайте при этом 27$!!!!Я сама сначала не поверила что такое возможно, но это действительно работает!Теперь получаю в день около 50-70$!!!
Итак переходим по ссылке h*tt*p://ww*w.AWSurveys.*com/*HomeMain.cfm?RefI*D=Nezabudka
(Без звездочек)
Инструкция:
1.Нажимаем CreateAFreeAccount
UserName- имя пользователяPassword- пароль 7-15 знаковFirstName- имяLastName- ФамилияEmailAddress- почтовый ящик
Далее вводим циферки-буковки с картинки, нажимаем кнопку CreateAFreeAccount
Ура! Мы зарегистрировались!
2.Далее видим таблицу, имеющую такой вид:
The Following Surveys are Available:
Welcome Survey — A $6.00 Website Evaluation is Available.
A $4.00 Website Evaluation is Available.
A $4.00 Website Evaluation is Available.
A $4.00 Website Evaluation is Available.
A $4.00 Website Evaluation is Available.
A $4.00 Website Evaluation is Available.
A February Bonus Website Evaluation is Available.3.Щелкаем по одной из ссылок на этой странице, попадаем на следущюю страницу ( тут нам радостно сообщают, что нам заплатят 6$ и это займет всего 5-10 мин.) и там щелкаем по надписи "StartSurveyNow"
4.Тут 2 ссылки и 2 поля, в них надо написать отзыв о сайте на англ языке.Кто не силен пишу шаблон-пример:It is an excellent site, I shall advise its all!
5.Щелкаем по кнопке внизу "Click to submit …" Переместились на страницу, на которой нам сообщают, что на наш баланс зачислено 6$. Щелкаем по ссылке "ClickHeretogoHomeand…"
6.И так далее по ссылкам и так каждый день.
7.Для того, чтобы снять деньги воспользуйтесь кнопкой "RedeemMoney"
Один день 27$ за 10 мин без проблем!
Дальше приглашаете рефералов по своей ссылке..она будет на сайте.. и за каждого получаете по $1,25
Попробуйте! И не пожалеете! Желаю удачи!
4 мая 2008 в 12:04
а как это выглядит на языке Паскаля?
2 мая 2008 в 23:02
вот все решения:
50025 + 50025 = 100050
50026 + 50026 = 100052
50027 + 50027 = 100054
50028 + 50028 = 100056
50029 + 50029 = 100058
50525 + 50525 = 101050
50526 + 50526 = 101052
50527 + 50527 = 101054
50528 + 50528 = 101056
50529 + 50529 = 101058
62130 + 62130 = 124260
62131 + 62131 = 124262
62132 + 62132 = 124264
62133 + 62133 = 124266
62134 + 62134 = 124268
62630 + 62630 = 125260
62631 + 62631 = 125262
62632 + 62632 = 125264
62633 + 62633 = 125266
62634 + 62634 = 125268
74235 + 74235 = 148470
74236 + 74236 = 148472
74237 + 74237 = 148474
74238 + 74238 = 148476
74239 + 74239 = 148478
74735 + 74735 = 149470
74736 + 74736 = 149472
74737 + 74737 = 149474
74738 + 74738 = 149476
74739 + 74739 = 149478
75285 + 75285 = 150570
75286 + 75286 = 150572
75287 + 75287 = 150574
75288 + 75288 = 150576
75289 + 75289 = 150578
75785 + 75785 = 151570
75786 + 75786 = 151572
75787 + 75787 = 151574
75788 + 75788 = 151576
75789 + 75789 = 151578
87390 + 87390 = 174780
87391 + 87391 = 174782
87392 + 87392 = 174784
87393 + 87393 = 174786
87394 + 87394 = 174788
87890 + 87890 = 175780
87891 + 87891 = 175782
87892 + 87892 = 175784
87893 + 87893 = 175786
87894 + 87894 = 175788
99495 + 99495 = 198990
99496 + 99496 = 198992
99497 + 99497 = 198994
99498 + 99498 = 198996
99499 + 99499 = 198998
99995 + 99995 = 199990
99996 + 99996 = 199992
99997 + 99997 = 199994
99998 + 99998 = 199996
99999 + 99999 = 199998
из них можно выделить решение, использующее неповторяющиеся символы:
74235 + 74235 = 148470
2 мая 2008 в 19:04
и как же он решается…
20 апреля 2008 в 16:01
если бы он был составлен правильно он бы работал)
не нужно усложнять то что можно сделать проще
20 апреля 2008 в 15:02
дак алгоритм у меня составлен правильно!
Просто я не могу найти где у меня множество выходит за границу! и начинает ОООчень долго считать
19 апреля 2008 в 22:05
например можно число n2 получить из цифр также как и n1 и потом сравнить 2*n1 и n2
19 апреля 2008 в 22:03
это как?
19 апреля 2008 в 21:02
жесткая какая-то программа. все ведь намного проще