Составить алгоритм с которого можна набрать 7 л воды пользуяст 8л и 5л банкой

из 8 выливаем

из 5 вливаем в 8

набираем 5

из пяти снова выливаем в 8

в пяти остается 2

выливаем из 8

из 5 вливаем в 8

наливаем в 5

выливаем из 5 в 8

во второй получается 7 литров

1) var       i, n, m: integer; begin       readln(n);       for i : = 1 to n do               m : = m + i;       writeln('сумма всех натуральных чисел не превышающих ', n, ' - ', m); end. 2) var       x, n, i, p: integer; begin       write('число: ');       readln(x);       write('степень : > ');       readln(n);       p : = 1;       for i : = 1 to n do               p : = p * x;       writeln('результат: > ', p); end.

Объяснение:

Множество относится к структурным типам данных.

Тип «множество» задаёт интервал значений, который явля-

ется множеством всех подмножеств базового типа. Базовый

тип – это перечислимый тип, кроме word, integer, longint. Син-

таксис определения типа множества:

<имя типа> = set of <базовый тип>;

Примеры:

Type

Tdigit = set of 0 .. 9;

Tsimv = set of ‘A’ .. ‘Z’ ;

Var

digit : Tdigit ;

simv : Tsimv;

Если переменная типа «множество» описана как set of 1 .. 3, то

она может принимать следующие значения: (1, 2, 3), (1, 2), (1,

3), (2, 3), (1), (2), (3), ().

Размер множества равен числу компонент базового типа

и может меняться от 0 до 256. Множество может быть пустым.