1) в одном байте 8 бит.1800 байт переводим в биты = 1800*8 = 14400 бит
скорость 14400 бит/c делим 14400 на 14400 = 1с
передадим за 1 сек.
2)1.5Мбайта переводим в байты = в 1Мбайте 1024Кбайта в 1Кбайте 1024байта
получаем 1.5Мбайта=1536Кбайт=1572864байта умножаем на 8(перевод в биты)=12582912бит
канал 12800 бит/c делим получаем 983,04 секунды на передачу файла
3) 7200Кбайт умножаем на 8 получаем 57600 Кбит делим на скорость получаем 300сек.
Во втором задании может быть ошибка, но не пойму в чем. щас еще подумаю...
Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
Var
num: integer;
begin
readln(num);
writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10);
end.
Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
<span>END.</span>