Question

Sa se scrie un numar n de 5 cifre, cifra zecilor sa fie para, cifra zecilor de mii sa fie mai mare decat 4 si mai mica decat 7, iar cifra miilor sa fie strict mai mica decat cifra zecilor de mii, in Pascal.

Answer 1

Răspuns:

program numere5cifre;

var a,b,c,d,e,n, contor:integer;

begin

 contor:=0;

 for a:=5 to 6 do

   for b:=0 to a-1 do

     for c:=0 to 9 do

       begin

         d:=0;

         while d<9 do

           begin

             for e:=0 to 9 do

               begin

                 n:=10000*a+1000*b+100*c+10*d+e;

                 write(n,' ');

                 contor:=contor+1;

               end;

             d:=d+2;

           end;

       end;

   writeln;

   writeln('gasite ',contor,' numere');

end.

Explicație:

gasite 5500 numere, ce respecta conditiilor