Непонятно, почему у вас координаты сначала написаны в двоичной системе, ведь в задаче про неё не написано.
Ну да ладно, я перевёл все координаты в десятичную систему счисления и нарисовал рисунок по этим точкам (смотри рисунки внизу). Вроде напоминает зайца какого то. Ну или Пятачка, друга Винни Пуха :)
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
begin
var a:=ReadlnString.ToIntegers;
Writeln('Минимальное нечетное: ',a.Where(i->i.IsOdd).Min);
Writeln('Максимальное четное: ',a.Where(i->i.IsEven).Max);
end.
<u>Пример</u>
4 12 83 53 7 19 32
Минимальное нечетное: 7
Максимальное четное: 32
Ответ:
Текст подчеркнут и имеет синий цвет
Вот программа:
var n,k,m,a,b: integer;
begin
readln(n);
readln(k);
readln(m);
a:=n div (k+m);
b:=n mod (k+m);
if b=0
then a:=2*a else if b<=k then a:=2*a+1 else a:=2*a+2;
writeln(a);
<span>end.</span>
1. вкус
2. обоняние
3. зрение
4.осязание
5.обоняние + зрение
6.осязание