4000бит/с / 8= 500байт/с
1Мб=1024Кбайта
1Кбайт=1024байта
1мб=1048576 байт
1048576 / 500 ~ 34 минуты 57 ceк
1)1536 Кбайт в 1.5 Мбайтах.
1 Мбайт=1024кбайтам
2)120байт=960битам.
1 байт = 8 битам
3) Байт, Кбайт, Мбайт, Гбайт, Тбайт.
Е-0, П-1, Н-2, Ч-3, Ь-4. Сначала находим двоичные коды чисел(переводим эти числа из десятичной системы счисления в двоичную. Там, где после перевода остается только одна цифра, впереди приписываем ноль). Таким образом, получим:
Е-00, П-01, Н-10, Ч-11, Ь-100.
Закодируем слово ПЕЧЕНЬЕ в двоичном коде: 01 00 11 00 10 100 00(2). Переведем это число в восьмеричную систему счисления любым известным нам способом, получим 23120(8).
Var
a:longint;
begin
readln(a);
writeln(a×a×a);
end;
Var
n,max:real;
begin
max:=-maxint;
writeln('Вводите числа');
repeat
repeat
readln(n);
if (n<>round(n)) then writeln('Введено не целое!');
until (n=round(n));
if n>max then max:=n;
until n=0;
writeln('Максимум: ',max);
end.
_______________________
var
n1,m1:real;
n,m,c,result,ost:integer;
begin
ost:=1;
writeln('Введите 2 числа');
repeat
readln(n1,m1);
if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!');
until (n1=round(n1))and(m1=round(m1));
n:=round(n1);
m:=round(m1);
while ost<>0 do
begin
if m>n then
begin
c:=m;
m:=n;
n:=c;
end;
ost:= n mod m;
result:=m;
n:=ost;
end;
writeln('НОД: ',m);
end.