Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  abcd.exe
Language: PASCAL
Code:
 program ow ;
 uses wincrt ;
 var   A,B :integer ;

 {+++MODULES +++}

 PROCEDURE CHERCHER (A:integer;B:integer);
 var j, i:integer ;
     chE ,chE2:string ;
      v:boolean ;
 Begin
      for i:=A to B do
      begin
       str(i,chE);
       str(2*i,chE2);
         if length (chE)  =length(chE2)
         then
           begin
          for j:= 1 to length(chE) do

                       begin
             if pos(chE[j],chE2)<> 0
             then delete(chE2,pos(chE[i],chE2),1)

                       end;

            end;

           V:= (chE2='') ;
        end;



 End  ;




 {+++PROG PRICIPALE++}
 BEGIN


  repeat writeln('A='); readln(a) ;
  writeln ('b='); readln(b);
  until( (A>10000) and (A<B) and (B<999999));

    chercher  (A,B );

  readln ;


  End .



     
Comments: