Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке. я к вам пишу – чего же боле? что я могу ещё сказать? 1) 416 байт 2) 104 бит 3) 52 байт 4) 832 бит
Замечание: в старых версиях паскаля вместо integer нужно использовать byte. var n,i:integer; s1, s2: set of integer; function prost(n:integer):boolean; var j,m:integer; begin m:=0; for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m); prost:=m=0; end; begin readln(n); s1:=[1]; s2:=[]; for i:=2 to n do if n mod i=0 then begin s1:=s1+[i]; if prost(i) then s2:=s2+[i]; end; writeln('Все делители:'); for i:=1 to n do if i in s1 then write(i,' '); writeln; writeln('Все простые делители:'); for i:=1 to n do if i in s2 then write(i,' '); writeln; writeln('Делители, которые не являются простыми:'); for i:=1 to n do if i in (s1-s2) then write(i,' '); end.
Пример: 340 Все делители: 1 2 4 5 10 17 20 34 68 85 170 340 Все простые делители: 2 5 17 Делители, которые не являются простыми: 1 4 10 20 34 68 85 170 340
Всего символов 52. 52 * 16 = 832