Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
Это задача со спичками.
Исходная раскладка:
XI+<u>I</u>X=XXII
Перекладываем спичку "единица" от второго слагаемого в первое:
XI<u>I</u>+X=XXII
1. Пусть x - количество зеленых яблок.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
2. I = log(2)[1/(15/60)] = log(2)[4] = 2 бита
3. I = log(2)16 = 4 бита