27 lines
398 B
Plaintext
27 lines
398 B
Plaintext
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.
|