fork download
copy 
  1. program LAMA;
  2.  
  3. var chuc: array[0 .. 10] of string = ('', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC', 'C');
  4. 	donvi: array[0 .. 9] of string = ('', 'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX');	
  5. 	s, tmp: string;
  6. 	num, x, y: integer;
  7. 	fi, fo: text;
  8.  
  9. procedure swap(var a, b: char);
  10. var t: char;
  11. begin
  12. 	t := a;
  13. 	a := b;
  14. 	b := t;
  15. end;
  16.  
  17. function sameDigit(a, b: string): boolean;
  18. var i, j: integer;
  19. begin
  20. 	// sap xep 2 xau
  21. 	for i := 1 to length(a) - 1 do
  22. 		for j := i + 1 to length(a) do
  23. 			if (a[i] > a[j]) then swap(a[i], a[j]);
  24. 	for i := 1 to length(b) - 1 do
  25. 		for j := i + 1 to length(b) do
  26. 			if (b[i] > b[j]) then swap(b[i], b[j]);
  27. 	exit(a = b);
  28. end;
  29.  
  30. begin
  31. 	assign(fi, 'LAMA.inp'); reset(fi);
  32. 	assign(fo, 'LAMA.out'); rewrite(fo);
  33. 	read(fi, s);
  34. 	for num := 1 to 100 do
  35. 	begin
  36. 		x := num div 10;
  37. 		y := num mod 10;
  38. 		tmp := chuc[x] + donvi[y];
  39. 		if sameDigit(s, tmp) then
  40. 		begin
  41. 			write(fo, tmp);
  42. 			close(fi);
  43. 			close(fo);
  44. 			halt;
  45. 		end;
  46. 	end;
  47. end.
Runtime error #stdin #stdout #stderr 0s 340KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Runtime error 2 at $00000000004003D4
  $00000000004003D4
https://ideone.com/NSaox2
language:
Pascal (fpc 3.0.4)
created:
5 years 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!