Из последовательности N первых натуральных чисел выбираются числа, которые при записи в римском представлении (римскими цифрами) будут иметь длину, равную М. Для N = 3500 и М = 5 будет выбрано ____ чисел
for i := 1 to n do begin num := i; c := 0; for j := 1 to symbols_count do if num >= symbols[j] then begin c := c + num div symbols[j]; num := num mod symbols[j]; end;
if c = m then begin {writeln(i);} res := res + 1; end; end;
Answers & Comments
Verified answer
Делалось из рассчета что 4 записывается 4 единицами и тпДля N = 3500 и М = 5 будет выбрано 216 чисел
const
symbols_count = 7;
symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1);
var
num, n, m, c, i, j, res: integer;
begin
readln(n, m);
for i := 1 to n do
begin
num := i;
c := 0;
for j := 1 to symbols_count do
if num >= symbols[j] then
begin
c := c + num div symbols[j];
num := num mod symbols[j];
end;
if c = m then begin
{writeln(i);}
res := res + 1;
end;
end;
writeln(res);
end.