Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.
1. Перевези зайца
3. Перевези капусту
5. Перевези льва
8 цветов...так как 2 в третей степени равно 8...это по формуле хартли N=2^i, где i это наши 3 бита
K = 100*50 = 5000 px
i = (N=2^i == 165 = 2^(7-8)) = 8 берём большее для i
I = 5000*8 = 5000 байт
ответ: В(5000)
Берём из первой шляпы одну монету, из второй две, ..., из десятой — 10 монет и кладём их на весы.
Если бы все монеты были настоящими, то они бы весили (1 + 2 + ... + 10) * 10 = 550 г. Поскольку каждая фальшивая монета на 1 г легче настоящей, то весы покажут не 550 г, а на столько грамм меньше, сколько взято фальшивых монет. Поскольку количество взятых из шляпы монет совпадает с номером шляпы, это позволит определить, где лежат фальшивые монеты.