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.
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 Кб ⇔ Окончательный ответ)
отметь как лучший потом
Объяснение:
a=['printer','kolonka','klaviatura','mysh','monitor']
print(a)
a.remove('kolonka')
print(a)