Составить блок схему даны два числа найти минимальное

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

v=i*k (объем=глубина цвета * кол-во точек)

i=10, т.к. 1024=2¹⁰ 

k=100*(15*18)=27000 точек

v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)

я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

набрать 9 литров в первую ёмкость.

1. 9 л       2. 0л (пока что) 

перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

из второй ёмкости вылить всю воду

1.4л         2. 0л

и из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л       2. 4л

набрать полную первую ёмкость

1. 9л     2. 4л

и из неё перелить во вторую 1 литр.

1. 8л     2. 5л

воду из второй емкости вылить

1.8 л     2. 0л

и из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

вот и