n |
(n*(n+1))/2 |
1 |
1 |
2 |
3 |
3 |
6 |
4 |
10 |
5 |
15 |
6 |
21 |
7 |
28 |
8 |
36 |
9 |
45 |
10 |
55 |
11 |
66 |
12 |
78 |
13 |
91 |
14 |
105 |
Z tabuľky vidíme, že požadovaný súčet majú dvojice 3, 14 a 9, 11. Hľadanými riešeniami sú teda štyri usporiadané dvojice (A,B): (3,14), (14,3), (9,11), (11,9).
i:=2; j:=1; while i<=N do begin k:=1; while (k<=j) and (a[k]<>a[i]) do k:=k+1; if k>j then begin j:=j+1; a[j]:=a[i] end; i:=i+1; end; N:=j;
var i,j,N:integer; begin readln(N); i:=9; while i<=N do begin write(i,' '); inc(i,10); end; writeln; i:=6; while i<=N do begin write(i,' '); inc(i,6); end; writeln; i:=1; while i<=N do begin write(i,' '); inc(i,i); end; writeln; i:=2; j:=2; while i<=N do begin if (i mod 10<>9)and(i mod 6<>0) and (i<>j) then write(i,' '); inc(i); if i>j then j:=2*j; end; writeln; end;