Вообще, это можно сделать при помощи программы ABBYY FineReader, она преобразует картинку (то есть скан) в текст, после чего можно его редактировать в текстовом редакторе
10000*1+1000*3+100*2+10*4+1*4
3 не находится в таком соотношении, часть комнаты это пол, стена, но никак не мебель
<span>Находим количество символов в 2 мегабайтах при 16 битной кодировке. (2*(2^10)*(2^10)*(2^3)/16=524288=2^19 символов.</span>
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся