На досуге вы любите почитать сборники занимательных по . недавно вы наткнулись в одном из таких сборников на следующую : есть бесконечный резервуар с водой и два пустых сосуда объёмом 5 и 12 литров. можно наливать воду из резервуара в любой сосуд до его заполнения, переливать воду из —одного сосуда в другой до заполнения второго или опустошения первого (смотря что будет раньше) и выливать воду из сосуда на землю до полного опустошения сосуда. как таким образом можно отмерить 3 литра? вы решили написать программу, которая будет решать подобные для произвольных объёмов сосудов. входные данные во входном файле находятся три целых числа — v1, v2 и v — объёмы двух сосудов и объем воды, который нужно отмерить. гарантируется, что 1v1v232767 и 0vmax(v1v2). выходные данные в первую строку выходного файла выведите одно число — количество действий в вашем решении. далее выведите соответствующее количество строк, описывающих действия в вашем решении. для каждого действия выведите два числа: если это действие — переливание из одного сосуда в другой, то первое число должно быть номером сосуда, откуда надо переливать воду, а второе — номером сосуда, куда переливать; если это действие — набор воды из резервуара, то первое число должно быть нулём, а второе — номером сосуда, куда наливать; если это действие — выливание воды “на землю”, то первое число должно быть номером сосуда, а второе — нулём. после выполнения всех операций хотя бы в одном сосуде должна находиться вода в объёме v. если существует несколько решений, то вы можете вывести любое. ваше решение не обязано быть оптимальным, единственное ограничение — размер выходного файла не должен превосходить 3 мб. если решений не существует, выведите одно число -1.
a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;
пока i<=50 делай
нц
если a[i]>max то
нц
max:=a[i];
n_max:=i;
кц
если a[i]<min то
нц
min:=a[i];
n_min:=i;
кц
если (i mod 2)==0 то
sum:=sum+a[i];
k:=k+1;
кц
srednee_znachenie:=sum/k;
//
var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;
begin
max:=a[1];
min:=a[1];
for i:=10 to 50 do
begin
if a[i]>max then
begin
max:=a[i];
n_max:=i;
end;
if a[i]<min then
begin
min:=a[i]
n_min:=i;
end;
if ((i mod 2)=0) then
begin
k:=k+1;
sum:=a[i]+sum;
end;
end;
end;
sr:=sum/k;
end.
2) системный эффект - это возникновение новых свойств, которых ранее не было у элементов по отдельности. Кроме того, это не очевидное (не сразу заметное) влияние различных факторов друг на друга и на конечный результат - например компьютер состоит из ряда простых электронных деталей, которые сами по себе ничего не представляют, но соединённые особым образом (в структуру) позволяют хранить числа и программы, складывать и вычислять и в конечном итоге - моделировать реальность (в играх, например).
3) турникет в автобусе или метро (никто не знает как он работает, но все пользуются)