ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Uses  Crt, Graph;
Var  i,Driver,Mode,Regim: Integer;
Begin
Driver:=VGA; 
Regim:=VGAmed;
InitGraph(Driver, Regim,'C:\Program Files\tp7\BGI');
Setbkcolor (red);
ClearDevice;

program lucky;       

uses Crt;            

Var
a,b,c,d,e,f : byte;
aw,bw,cw,dw,ew,fw,nw : string;
er1,er2,er3,er4,er5,er6 : integer;

begin

 ClrScr;            

 writeln('Enter your lucky-number');
 readln(nw);

 if Length(nw)<>6 then
  writeln('Enter valid number')
 else
  begin

                                    
                                    
                                    
  aw:=Copy(nw,1,1);                
  bw:=Copy(nw,2,1);                 
  cw:=Copy(nw,3,1);                   
  dw:=Copy(nw,4,1);                  
  ew:=Copy(nw,5,1);
  fw:=Copy(nw,6,1);

  Val(aw,a,er1);
  Val(bw,b,er2);
  Val(cw,c,er3);
  Val(dw,d,er4);
  Val(ew,e,er5);
  Val(fw,f,er6);

                                     
 if a+b+c+d+e+f = 54 then
  begin
   writeln('Congratulation! It is lucky-number!');
   writeln('Next lucky-number is 000000')
  end
 else

  if a+b+c=d+e+f then
   writeln('Congratulation! It is lucky-number!');


   for a:=a to 9 do
    for b:=b to 9 do
     for c:=c to 9 do
      for d:=d to 9 do
       for e:=e to 9 do
        for f:=f+1 to 9 do         // !!!!!!!!!!!!!!!!!!!!!!       

   if a+b+c=d+e+f then
    begin
     writeln('Next lucky-number is ',a,b,c,d,e,f);
     break;
    end




     end
end.




//123320 прекрасно
//111111 ничего кроме это лаки
//000001 ничего

//Выше просто обрезано ;)
 if a+b+c+d+e+f = 54 then
  begin
   writeln('Congratulation! It is lucky-number!');
   writeln('Next lucky-number is 000000')
  end

 else begin

  if a+b+c=d+e+f then begin
   writeln('Congratulation! It is lucky-number!');
   f:=f+1; //Увеличиваем последнюю цифру здесь а не в цикле
  end;

   for a:=a to 9 do begin
    for b:=b to 9 do begin
     for c:=c to 9 do begin
      for d:=d to 9 do begin
       for e:=e to 9 do begin
        for f:=f to 9 do begin        // !!!!!!!!!!!!!!!!!!!!!!

   if a+b+c=d+e+f then
    begin
     writeln('Next lucky-number is ',a,b,c,d,e,f);
     exit;
    end;

     end; {сбрасываем счётчики на 0 после 9)
     f:=0;
     end;
     e:=0;
     end;
     d:=0;
     end;
     c:=0;
     end;
     b:=0;
     end;

     end;
     end;
end.

Var
a,b,c,d,e,f : byte;
aw,bw,cw,dw,ew,fw,nw : string;
er1,er2,er3,er4,er5,er6 : integer;
left,right:integer;


procedure patch(v1,v2,v3:byte;var ot:integer);
var
 buf:string;
 code:integer;
begin
 if (v1=0) and (v2=0) then buf:=inttostr(v3)
 else
 if v1=0 then buf:=inttostr(v2)+inttostr(v3)
 else
  buf:=inttostr(v1)+inttostr(v2)+inttostr(v3);
  Val(buf,ot,code);
end;

procedure dispatch(digit:integer; var s1,s2,s3:byte);
var
 buf:string;
 code:integer;
begin
 buf:=inttostr(digit);
 if digit<10 then begin
  s1:=0;s2:=0;s3:=digit;
  end
 else
  if digit<100 then begin
   s1:=0;
   Val(copy(buf,2,1),s2,code);
   Val(copy(buf,3,1),s3,code);
  end
 else begin
  Val(copy(buf,1,1),s1,code);
  Val(copy(buf,2,1),s2,code);
  Val(copy(buf,3,1),s3,code);
 end;
end;

begin
 ClrScr;    
 writeln('Enter your lucky-number');
 readln(nw);

 if Length(nw)<>6 then
  writeln('Enter valid number')
 else
  begin
  aw:=Copy(nw,1,1);                
  bw:=Copy(nw,2,1);                 
  cw:=Copy(nw,3,1);                   
  dw:=Copy(nw,4,1);
  ew:=Copy(nw,5,1);
  fw:=Copy(nw,6,1);

  Val(aw,a,er1);
  Val(bw,b,er2);
  Val(cw,c,er3);
  Val(dw,d,er4);
  Val(ew,e,er5);
  Val(fw,f,er6);

 if a+b+c+d+e+f = 54 then
  begin
   writeln('Congratulation! It is lucky-number!');
   writeln('Next lucky-number is 000000');
  end
 else

  if a+b+c=d+e+f then
   writeln('Congratulation! It is lucky-number!')
  else  begin

 patch(d,e,f,right);
 patch(a,b,c,left);
 if left=0 then begin
  left:=1;
  dispatch(left,a,b,c);
  right:=0;
  end;
  while a+b+c<>d+e+f do
    begin
      inc(right);
      dispatch(right,d,e,f);
      if (d=10) and (e=10) and (f=10) then begin
       patch(a,b,c,left);
       inc(left);
       dispatch(left,a,b,c);
      end;
    end;
     writeln('Next lucky-number is ',a,b,c,d,e,f);
    end;
     readln;
    end;
end.

   if a+b+c=d+e+f then
    begin
     writeln('Next lucky-number is ',a,b,c,d,e,f);
     exit;
    end;