Информация
Что тут сложного?)
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;
Объясните в чем суть задания
Переведем в биты: 16 это 2^4, кбайт это 2^10*2^3, получим 2^17 бит.
Linux-Операционная система
Текстовый редактор-Прикладная
Windows-Операционная система
macOS-Операционная система
Файловый менеджер-Прикладная
Антивирус-Утилита
Табличный процессор-Прикладная
Игровая программа-Утилита