fork download
copy 
  1. Program Mikelhpdatke_comeback;
  2. Var x,A:array[1..10] Of integer;
  3.  
  4.     c:array[1..10] Of Boolean;
  5.   n,k,i,dem:Integer;
  6.  
  7.   Procedure PrintResult;
  8.    Var i,q,w:integer;
  9.        s,st:string;
  10.     Begin
  11.      s:='';
  12.      For i:=1 to k do
  13.         Begin
  14.          str(A[x[i]],st);
  15.          s:=s+st;
  16.         End;
  17.        Val(s,q,w);
  18.  
  19.       If (q mod 2=0) and (q>=350) and (q<=980) then begin; write(q,' '); inc(dem);    end
  20.     End;
  21.  
  22.  
  23.   Procedure Attempt(i:integer);
  24.    Var j:Integer;
  25.     Begin
  26.  
  27.      For j:=1 to n do
  28.       If C[j] then
  29.         Begin
  30.           x[i]:=j;
  31.            If i=k then PrintResult
  32.            Else
  33.              Begin
  34.               C[j]:=False;
  35.               Attempt(i+1);
  36.               C[j]:=True;
  37.              End;
  38.         End;
  39.     End;
  40.  
  41.    BEGIN
  42.     n:=6;
  43.     k:=3;
  44.     dem:=0;
  45.     FillChar(C, SizeOf(C), True);
  46.     A[1]:=3;
  47.     A[2]:=5;
  48.     A[3]:=0;
  49.     A[4]:=8;
  50.     A[5]:=9;
  51.     A[6]:=6;
  52.     Attempt(1);
  53.     writeln;
  54.     writeln(dem);
  55.  
  56.    End.
  57.  
Success #stdin #stdout 0.01s 208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
350 358 356 380 386 390 398 396 360 368 530 538 536 508 506 580 586 590 598 596 560 568 830 836 850 856 806 890 896 860 930 938 936 950 958 956 908 906 980 960 968 630 638 650 658 608 680 690 698 
49
https://ideone.com/Z9p3nq
language:
Pascal (fpc 3.0.4)
created:
13 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!