fork download 
  1. var
  2. 	n, k: longint;
  3. 	i, j: integer;
  4. 	a: array[1..10000] of longint;
  5. begin
  6. 	read(n, k);
  7. 	for i := 1 to k do
  8. 	begin
  9. 		a[i] := i;
  10. 	end;
  11. 	for i := 1 to k - 1 do
  12. 	begin
  13. 		for j := 1 to k - 1 do
  14. 		begin
  15. 			if (a[j] > a[j + 1]) then
  16. 			begin
  17. 				a[j] += a[j + 1];
  18. 				a[j + 1] := a[j] - a[j + 1];
  19. 				a[j] -= a[j + 1];
  20. 			end;
  21. 		end;
  22. 	end;
  23. 	for i := 1 to k do
  24. 	begin
  25. 		writeln(i, ' ', a[i]);
  26. 	end;
  27. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
5 2
stdout 
1 1
2 2
https://ideone.com/fCz6yd
language:
Pascal (fpc 3.0.4)
created:
8 days ago
visibility:
public

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!