Другие языки программирования и технологии

точка + круг = конус

Всем привет! Мне дали задание решить ребус точка + круг = конус по этому примеру (муха+муха=слон), помогите пожалуйста:

program rebus;
type
mn=set of 0..9;
var
n1,n2,n: integer;
m,y,x,a:0..9;
a1,a2,a3,a4:0..9;
s1,s2:mn;
procedure print(x,y: integer);
begin
writeln(x:5);
writeln('+');
writeln(x:5);
writeln('______');
writeln(y:5);
end;

begin
n:=0;
s1:=[];
s2:=[];

for m:=1 to 4 do
begin
s1:=s1+[m];
for y:=0 to 9 do
if not (y in s1) then

begin
s1:=s1+[y];
for x:=0 to 9 do
if not (x in s1) then

begin
s1:=s1+[x];
for a:=1 to 9 do
if not (a in s1) then

begin
s1:=s1+[a];

n1:=1000*m+100*y+10*x+a;
n2:=2*n1;
a1:=n2 div 1000;
a2:=n2 div 100 mod 10;
a3:=n2 div 10 mod 10;
a4:=n2 mod 10;
s2:=[a1,a2,a3,a4];
if (s1*s2=[]) and ([a1]*[a2]*[a3]*[a4]=[])
then
begin
n:=n+1;
print(n1,n2);
end;
s1:=s1-[a];
end;
s1:=s1-[x];
end;
s1:=s1-[y];
end;
s1:=s1-[m];
end;
writeln('n=',n);
end.
Андрей Герасимов
Андрей Герасимов
699
Вот все возможные решения:

80495 + 9637 = 90132
80495 + 9736 = 90231
80496 + 9735 = 90231
80497 + 9635 = 90132
80594 + 9637 = 90231
80597 + 9634 = 90231
80694 + 9537 = 90231
80695 + 9437 = 90132
80697 + 9435 = 90132
80697 + 9534 = 90231
80795 + 9436 = 90231
80796 + 9435 = 90231
81395 + 9647 = 91042
81397 + 9645 = 91042
81496 + 9527 = 91023
81497 + 9526 = 91023
81593 + 9647 = 91240
81594 + 9726 = 91320
81596 + 9427 = 91023
81596 + 9724 = 91320
81597 + 9426 = 91023
81597 + 9643 = 91240
81693 + 9547 = 91240
81695 + 9347 = 91042
81697 + 9345 = 91042
81697 + 9543 = 91240
81794 + 9526 = 91320
81796 + 9524 = 91320
82394 + 9657 = 92051
82394 + 9756 = 92150
82396 + 9754 = 92150
82397 + 9654 = 92051
82493 + 9657 = 92150
82496 + 9517 = 92013
82497 + 9516 = 92013
82497 + 9653 = 92150
82594 + 9716 = 92310
82596 + 9417 = 92013
82596 + 9714 = 92310
82597 + 9416 = 92013
82693 + 9457 = 92150
82694 + 9357 = 92051
82697 + 9354 = 92051
82697 + 9453 = 92150
82794 + 9356 = 92150
82794 + 9516 = 92310
82796 + 9354 = 92150
82796 + 9514 = 92310
83295 + 9746 = 93041
83296 + 9745 = 93041
83495 + 9607 = 93102
83495 + 9706 = 93201
83496 + 9705 = 93201
83497 + 9605 = 93102
83594 + 9607 = 93201
83597 + 9604 = 93201
83694 + 9507 = 93201
83695 + 9407 = 93102
83697 + 9405 = 93102
83697 + 9504 = 93201
83795 + 9246 = 93041
83795 + 9406 = 93201
83796 + 9245 = 93041
83796 + 9405 = 93201
84295 + 9736 = 94031
84296 + 9735 = 94031
84395 + 9617 = 94012
84397 + 9615 = 94012
84593 + 9617 = 94210
84597 + 9613 = 94210
84693 + 9517 = 94210
84695 + 9317 = 94012
84697 + 9315 = 94012
84697 + 9513 = 94210
84795 + 9236 = 94031
84796 + 9235 = 94031
85394 + 9627 = 95021
85394 + 9726 = 95120
85396 + 9724 = 95120
85397 + 9624 = 95021
85493 + 9627 = 95120
85497 + 9623 = 95120
85693 + 9427 = 95120
85694 + 9327 = 95021
85697 + 9324 = 95021
85697 + 9423 = 95120
85794 + 9326 = 95120
85796 + 9324 = 95120
Pernebay Issaev
Pernebay Issaev
54 541
Лучший ответ
Андрей Герасимов а сам код pascal?
Андрей Герасимов невидно ничего!

Похожие вопросы