Program rp1;
uses crt;
var a: array [1..15] of integer; i: integer;
begin
clrscr;
randomize;a[i]:=random (41)-20;
writeln ('massiv ');
for i:=1 to 15 do
write (a[i], ' ');
for i:=1 to 15 do
if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]);
writeln ('novij massiv ');
for i:=1 to 15 do
write (a[i], ' ');
end.
Из условия следует, что на одной странице
![64*40=2560](https://tex.z-dn.net/?f=64%2A40%3D2560)
символа, а раз так, в тексте
![2560*11=28160](https://tex.z-dn.net/?f=2560%2A11%3D28160)
символа. Следовательно, текст будет весить
![28160*16=450560](https://tex.z-dn.net/?f=28160%2A16%3D450560)
бит, или 56320 байт, или 55 КиБ:)
Для перевода в двоичную систему делим число на 2 и записываем остатки от деления
285/2=142 остаток 1
142/2=71 остаток 0
71/2=35 остаток 1
35/2=17 остаток 1
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
записываем остатки снизу вверх
285₁₀=100011101₂
для перевода десятичного числа в восьмеричную систему счисления проделываем те же операции, только делим на 8
285/8=35 остаток 5
35/8=4 остаток 3
4/8=0 остаток 4
записываем ответ снизу вверх
285₁₀=345₈
для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16
285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D
17/16=1 остаток 1
1/16=0 остаток 1
ответ 285₁₀= 11D₁₆