var h,m,s: integer; i:integer; x,y: integer; g: real;
begin setwindowsize(w,w); read(h,m,s); h := h mod 12; setpenwidth(2); circle(w div 2, w div 2, r); for i := 0 to 59 do begin g := (i*360/60 - 90) * pi/180; if i mod 12 = 0 then begin x := w div 2 + round((r - dl) * cos(g)); y := w div 2 + round((r - dl) * sin(g)); end else begin x := w div 2 + round((r - dl div 3) * cos(g)); y := w div 2 + round((r - dl div 3) * sin(g)); end; line(x,y,w div 2 + round(r*cos(g)),w div 2 + round(r*sin(g))) end; setbrushcolor(clwhite); while true do begin setpencolor(clwhite); circle(w div 2, w div 2, sl); setpencolor(clblack); setpenwidth(1); g := (6*s - 90) * pi/180; x := w div 2 + round(sl * cos(g)); y := w div 2 + round(sl * sin(g)); line(w div 2, w div 2, x, y); setpenwidth(2); g := ((60*m + s)/10 - 90) * pi/180; x := w div 2 + round(ml * cos(g)); y := w div 2 + round(ml * sin(g)); line(w div 2, w div 2, x, y);
setpenwidth(3); g := (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180; x := w div 2 + round(hl * cos(g)); y := w div 2 + round(hl * sin(g)); line(w div 2, w div 2, x, y); s := s + 1; if s = 60 then begin m := m + 1; s := 0; end; if m = 60 then begin h := (h + 1) mod 12; m := 0 end;
1. Как я понял, нужно перевести 297(10) в ...(2),...(8) и ...(16). Тогда: - 10-ная : 297; - 2-ная : 100101001; - 8-ная : 451; - 16-ная : 129.
2.Как я понял нужно показать как перевести 100101001(2-ная) в 8-ная через триады. Тогда : 100 101 001 1) 100 = 2^2 = 4; 2) 101 = 2^2 + 2^0 = 4 + 1 = 5; 3) 001 = 2^0 = 1; Тогда 100101001 (2-ная) = 451(8-ная).
3. 16 = 2^4 = 10000(2-ная); 32 = 2^5 = 100000(2-ная); 64 = 2^6 = 1000000(2-ная); 128 = 2^7 = 10000000(2-ная). Выведем правило : Если мы переводим в двоичную СС числа, являющиеся степенями двойки, то мы ставим везде ноли, но единицу ставим в том разряде двоичного числа, в который мы возвели двойку, чтобы получить 8;16 и т.п(32 - это 5-ая степень двойки, следовательно мы ставим единицу на 5-ый разряд, а в другие разряды ставим нули : 100000(1 на 5 разряде).
1 крик
2 барабан
3 интернет
4 почта
5 телефон
6 костер
7 телевизор
8 радиосвязь
9 морзе
10 приемник