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

[Sk!f]

Ребятя, помогите сделать задачу на паскале пожалуйсто. Условие: точка+круг=конус. Не могу разобраться и найти зависимость.

Вот задача вида муха+муха=слон:

program a11;

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 (9 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:=m*1000+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.
   write('hellow')
   end.

Буду очень благодарен.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

подобные задачи называют РЕБУСами

А вы зря не пользуетесь поиском.
цитирую свой пост
_______________________________

вот готовое УНИВЕРСАЛЬНОЕ решение (с) TinMan
ТЫРК

ну и посмотрите вот эти темы:
Криптарифметическая задача

Ребус!

Решение ребусов в Паскале

Ребус

Паскаль -> Делфи

[Sk!f]

Большое спасибо!