Варианты могут быть разные
1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы
должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит
Пронумеруем мнения.
1.1. Валерий будет третьим. 1.2. Василий будет первым.
2.1. Сергей будет вторым. 2.2. Валерий будет третьим.
3.1. Андрей будет первым. 3.2. Сергей будет третьим.
Допустим, 1.1 истинно, тогда 1.2 ложно.
Если 1.1 истинно, то истинно и 2.2, тогда 2.1 ложно.
Если 1.1. истинно, то 3.2. ложно, тогда 3.1. истинно.
Получаем распределение мест: Валерий третий (1.1.), Андрей первый (3.1.), Сергей не второй, следовательно, второй Василий (методом исключения).
Противоречий нет.
Проверим альтернативный вариант.
Допустим, 1.1. ложно, тогда 1.2. истинно.
Если 1.1. ложно, то и 2.2. ложно, тогда 2.1. истинно.
Если 2.1. истинно, то 3.2 ложно, тогда 3.1 истинно.
Но истинные 1.2. и 3.1. противоречат друг-другу, следовательно наше допущение неверно и 1.1. ложным быть не может.
Окончательно: Андрей первый, Василий второй, Валерий третий, Сергей четвертый (во всяком случае, не вошел в первую тройку).
Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
Var a:array [1..10] of integer;
I,s:integer;
begin
randomize;
s:=1;
for I:=1 to 10 do
begin
a[I]:=random(100);
if (a[I] mod 3 =0)and(a[I] mod 9<>0) then
s:=s*a[I];
write(a[I]:4);
end;
writeln;
writeln(s);
end.
Program svwnx90f;
uses crt;
const n = 100;
var
A:array [1..n] of real;
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=0 to 9 do
for j:=1 to 10 do
begin
A[i*10+j]:= Random(101)-50;
write(A[i*10+j]:7:1,' ');
end;
writeln;
writeln('Положительные элементы уменьшаются в 2 раза... ');
writeln('Результат:');
for i:=0 to 9 do
begin
for j:=1 to 10 do
begin
if A[i*10+j]>0 then A[i*10+j]:= A[i*10+j]/2;
write(A[i*10+j]:7:1,' ');
end;
end;
end.