diff options
Diffstat (limited to 'daily/306easy/panroman.pas')
-rw-r--r-- | daily/306easy/panroman.pas | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/daily/306easy/panroman.pas b/daily/306easy/panroman.pas new file mode 100644 index 0000000..5721f62 --- /dev/null +++ b/daily/306easy/panroman.pas @@ -0,0 +1,26 @@ +uses strutils; + +var + i: int16; + +function ivxlcdm(s: string): boolean; + var + a: array['C'..'X'] of int8; + c: char; + + begin + for c in 'IVXLCDM' do + a[c] := 0; + for c in s do + inc(a[c]); + for c in 'IVXLCDM' do + if a[c] <> 1 then + exit(false); + ivxlcdm := true + end; + +begin + for i := 1000 to 2000 do + if ivxlcdm(inttoroman(i)) then + writeln(i) +end. |