Ни одно из множеств K и U не является подмножеством другого.
Тыква помидор капуста огурец это овощи
А) тыква зеленый. Помидор зеленый. Огурец зеленый. Капуста тоже зеленый
Б) мяч лишний он красным цветом
Спасибо за внимание!!!
Не совсем понял смысл, но вот:
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, либо числа не кончатся
Посмотри во вложенном файле, удачи!!!!!
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.