Не совсем понял смысл, но вот:
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, либо числа не кончатся

0 0

1 год назад

Сколько памяти занимает графическое изображение, если его размер 40 на 60 и для кодировки цвета пикселя используется двоичный ко

ЕвгенийГущ

40 * 60 * 32 / 8 = 9600
Ответ: <span>г) 9600 байтов</span>

0 0

4 года назад

1Что такое байт,килобайт,мегабайт и гигабайт?2Сколько битов составляет 1/2 килобайта?3Сколько школьных учебников емкостью 350 Лб

havrja

1) Все это единицы измерения информации.

0 0

4 года назад