<span>Переводим целую часть числа. Заменяем каждый разряд на код двоичной СС.
</span><span>0000 0
</span><span>0001 1
</span><span>0010 2
</span><span>0011 3
</span><span>0100 4
</span><span>0101 5
</span><span>0110 6
</span><span>0111 7
</span><span>1000 8
</span><span>1001 9
</span><span>1010 A
</span><span>1011 B
</span><span>1100 C
</span><span>1101 D
</span><span>1110 E
</span><span>1111 F
В итоге получится: </span>1111101001010110
a := 14
c := a mod 2 + 2 = 14 mod 2 + 2 = 0 + 2 = 2
d := sqr(c) + 2 = sqr(2) + 2 = 4 + 2 = 6
a := d div 2 = 6 div 2 = 3
vce := a + c + d = 3 + 2 + 6 = 11
<h2>Ответ</h2>
11
1) Ане нравятся уроки математики и химии
2) Ане нравятся уроки химии и не нравятся - математики
3) Ане нравятся уроки математики и не нравятся - химии
4) Ане нравятся уроки математики или химии
5) Ане нравятся уроки математики или не химии
6) Ане не нравятся уроки математики или химии
7) Ане не нравятся уроки математики или химии
8) Ане не нравятся уроки математики и химии
9) Ане не нравятся уроки математики или нравятся уроки химии
Var
n,m:integer;
r1,r2:real;
begin
writeln('Введите количество часов: ');
readln(n);
writeln('Введите количество минут: ');
readln(m);
n:=n mod 12;
r2:=m/60*360;
r1:=(n*360+r2)/12;
writeln('Угол поворота часовой стрелки ',r1,' градусов или ',r1/180*Pi,' радиан');
writeln('Угол поворота минутной стрелки ',r2,' градусов или ',r2/180*Pi,' радиан');
end.