Не совсем понял смысл, но вот:
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 год назад

Какие задачи на практике решают инженеры при передачи закодированного сообщения? (коротко)

Пудовкина Мария Ю...

Ответ:

Объяснение:

Подбор кода(Как кодировать), кодирование(Сам процесс), передача, прием, расшифровка(Подборка ключа и т.п).

0 0

3 года назад

Составить алгоритм приготовления блюда (всего 10 шагов) Помогите пожалуйста!

Ланиграм [54]

1)Моем ингридиенты
2)Чистим
3)Избавляемся от шкурок, хвостиков
4)Нарезаем
5)Ставим воду закипать
6)Солим воду
7)Кладем в воду ингридиенты
8)Добавляем специи
9)Сливаем воду
10)Серверуем блюдо и подаем к столу

0 0

4 года назад