1) 1 Килобайт = 1024 Байтов
1 Мегабайт = 1024 Килобайтов (1024 Б * 1024 Б)
=> 1572864 : 1024 = 1536 КБ (Килобайт)
(1536 ←(1572864 Б) : 1024 = 1,5 МБ ⇔ Окончательный ответ)
2) 1 Байт = 8 Битов
=> 20480 : 8 = 2560
20480 Бит = 2560 Байт
(2560 ←(20480 Бит): 1024 = 2,5 КБ ⇔ Окончательный ответ )
3) 4194304 Байт = 4096 Кб
(4096 Кб = 4 Мб ⇔ Окончательный ответ)
4)40960 Бит = 5120 Байт
(5120 Байт = 5 Кб ⇔ Окончательный ответ)
5) 3145728 Байт = 3072 Кб
(3072 Кб = 3 Мб ⇔ Окончательный ответ)
6) 155648 Бит = 19456 Байт
(19456 Байт = 19 Кб ⇔ Окончательный ответ)
function IsPrime(n: integer): boolean;
begin
if n < 4 then Result := True
else
begin
var found := (n mod 2 = 0);
var p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p += 2
end;
Result := not found
end
end;
function IsPalindrom(n: integer): boolean;
begin
Result := True;
if n > 10 then
begin
var (n1, i) := (n, -1);
var a := new integer[9];
while n1 > 0 do
begin
i += 1;
a[i] := n1 mod 10;
n1 := n1 div 10
end;
for var j := 0 to i div 2 do
begin
if a[j] <> a[i - j] then
begin
Result := False;
break
end
end
end
end;
begin
var (i, k) := (3, 1);
repeat
if IsPrime(i) and IsPalindrom(i) then k += 1;
i += 2
until k >= 101;
(i - 2).Println
end.
a) 11101110 = 1∙2^7+1∙2^6+1∙2^5+0∙2^4+1∙2^3+1∙2^2+1∙2^1+0∙2^0 = 128+64+32+0+8+4+2+0 = 238
238^2 = 56644
56644 = 1101110101000100
b) 11001100 = 1∙2^7+1∙2^6+0∙2^5+0∙2^4+1∙2^3+1∙2^2+0∙2^1+0∙2^0 = 128+64+0+0+8+4+0+0 = 204
204^2 = 41616
41616 = 1010001010010000
c) 1000010 = 1∙2^6+0∙2^5+0∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0 = 64+0+0+0+0+2+0 = 66
66^2 = 4356
4356 = 1000100000100
d) 10000101 = 1∙2^7+0∙2^6+0∙2^5+0∙2^4+0∙2^3+1∙2^2+0∙2^1+1∙2^0 = 128+0+0+0+0+4+0+1 = 133
133^2 = 17689
17689 = 100010100011001
Знаком " ^" обозначают степени.
(Надеюсь правильно поняла задание)