Var n,i: integer;
priz: boolean;
begin
write('n = '); readln(n);
repeat
priz:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
priz:=false;
break;
end;
if priz then write(n)
else inc(n);
until priz;
end.
n = 121
127
Ответ: Операционная система
1. 256 Бит= 32 Байта=<span>0.256 кбита</span><span>
2. 512 Байт= 4 Кбит= 0,5 Кбайт
3. 768 Бит= 0,75 Килобит= 96 Байт
4. 8192 Бит= 1 Кбайт= 8 Кбит
5. 3072 Байт= 24 Кбит= 3 Кбайт</span>