Всички четирицифрени с поне две еднакви цифри и без 0

5 Responses to Всички четирицифрени с поне две еднакви цифри и без 0

1. kaloyan каза:

   11 май, петък в 08:35

   VAR c1,c2,c3,c4 : integer;
   BEGIN
     for c1:=1 to 9 do
       for c2:=1 to 9 do
         for c3:=1 to 9 do
           for c4:=1 to 9 do
             if (c1=c2) or (c1=c3) or (c1=c4) or (c2=c3) or (c2=c4) or (c3=c4) then writeln(c1,c2,c3,c4);
   readln;
   END.          
   

   Влезте, за да отговорите
2. Lubomir Dizela каза:

   11 май, петък в 10:46

    program project1;
   var
   c, c1, c2, c3, c4, chislo:integer;
   
   
   begin
   Write('Vuvedete izbranata cifra: ');
   ReadLn(chislo);
   for c:= 1000 to 9999 do begin
    c1:=c mod 10;
    c2:=(c div 10) mod 10;
    c3:=(c div 100) mod 10;
    c4:=c div 1000;
       if ((c1=c2) and (c1=chislo)) or ((c1=c3) and (c1=chislo)) or ((c1=c4) and (c1=chislo)) or
      ((c2=c1) and (c2=chislo)) or ((c2=c3) and (c2=chislo)) or ((c2=c4) and (c2=chislo)) or
      ((c3=c1) and (c3=chislo)) or ((c3=c2) and (c3=chislo)) or ((c3=c4) and (c3=chislo)) or
      ((c4=c1) and (c4=chislo)) or ((c4=c2) and (c4=chislo)) or ((c4=c3) and (c4=chislo)) then
    WriteLn(c);
    end;
    ReadLn;
   end.  

   Влезте, за да отговорите
   • Данаил каза:

     11 май, петък в 10:54

     Програмата на Любомир отпечатва само числата, които имат еднаква тази цифра, която сме указали (например при въвеждане на 6 отпечатва всички числа, съдържащи поне две цифри 6 в записа си).

     Влезте, за да отговорите
3. Xboxx_ каза:

   11 май, петък в 10:47

    program project1;
   var  chislo,chislo1, chislo2 ,chislo3 ,chislo4, k:integer;
   begin
   
   For chislo:= 1111 to 9999 do  begin
   chislo1:= chislo mod 10;
   chislo2:= (chislo div 10) mod  10;
   chislo3:= (chislo div 100) mod 10 ;
   chislo4:= (chislo div 1000) ;
   if ((chislo1=chislo2) or(chislo1=chislo3) or (chislo1=chislo4) or
      (chislo2=chislo3 ) or (chislo2=chislo4)  or (chislo3=chislo4)) and
      (chislo1<>0) and (chislo2<>0) and (chislo3<>0) and (chislo4<>0)  then
    Write(chislo, ' ');
   
   end;
     ReadLn;
   end.                         

   Влезте, за да отговорите
4. Violeta каза:

   11 май, петък в 10:48

    program project1;
   var  chislo,chislo1, chislo2 ,chislo3 ,chislo4, k:integer;
   begin
   
   For chislo:= 1111 to 9999 do  begin
   chislo1:= chislo mod 10;
   chislo2:= (chislo div 10) mod  10;
   chislo3:= (chislo div 100) mod 10 ;
   chislo4:= (chislo div 1000) ;
   if ((chislo1=chislo2) or(chislo1=chislo3) or (chislo1=chislo4) or
      (chislo2=chislo3 ) or (chislo2=chislo4)  or (chislo3=chislo4)) and
      (chislo1<>0) and (chislo2<>0) and (chislo3<>0) and (chislo4<>0)  then
    Write(chislo, ' ');
   
   end;
     ReadLn;
   end.                         

   Влезте, за да отговорите