Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
(мегабайта),
- размер одной секунды записиодной в битах. Остальное, думаю, понятно.
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Q= 100 Мбит/с = 4*25*2^(23) бит/с = 25*2^(25) бит/с
F= 6400 Кбайт =2^6*2² *25 * 2^(13) бит = 25*2^(21) бит
Избыт. =20%; 100%+20%=120% или 1,2 части
Fi=1,2*25*2^(21) бит
Время t = Fi / q = 1,2*25*2^(21) / (25*2^(25)) = 1,2 / 2^4 = 1,2/8= 0,15 c