Не совсем понял смысл, но вот:
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, либо числа не кончатся
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
Ctrl + c - Копировать
Ctrl + v - Вставить
Ctrl + x - Вырезать
При копировании из D3 в D4 получится Б) A4/$B$3-C4
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".