2. скорость передачи данных через adsl-соединение равна 256 000 бит/c.
какова длительность передачи файла через данное соединение (в секундах), если
размер файла 500 кбайт? в ответе укажите число – длительность передачи файла в
секундах.
3 . файл размером 64 кбайт передаётся через некоторое соединение со скоро-
стью 1024 бит в секунду. определите размер файла (в кбайт), который можно передать
за то же время через другое соединение со скоростью 256 бит в секунду. в ответе
укажите число — размер файла в кбайт.
4 . файл размером 100 кбайт передаётся через некоторое соединение со скоро-
стью 1536 бит в секунду. определите размер файла (в кбайт), который можно передать
за то же время через другое соединение со скоростью 768 бит в секунду. в ответе
укажите одно число — размер файла в кбайт. единицы измерения писать не нужно.
5 .
файл размером 8 мбайт передаётся через некоторое соединение
за 100 секунд. определите размер файла (в кбайтах), который можно передать через
это же соединение за 25 секунд. в ответе укажите число – размер файла в кбайтах.
6 . через некоторое соединение файл размером 32 кбайта передаётся в течение
16 секунд. определите размер файла (в кбайт), который передаётся через это же
соединение в течение минуты. в ответе укажите число — размер файла в кбайт.
7 . передача файла размером 3750 кбайт через некоторое соединение заняла
2 минуты. какова скорость передачи данных через это соединение в битах в секунду? в
ответе укажите число — скорость передачи в бит/с.
8 . определить объём (в кб) видеопамяти компьютера, который необходим
для реализации графического режима монитора high color с разрешающей точек и палитрой из 65536 цветов.
9 . укажите минимальный объем памяти (в мегабайтах), достаточный для
хранения любого растрового изображения размером 2048 × 1536 пикселя, если
известно, что в изображении используется палитра из 16777216 цветов. саму палитру
хранить не нужно.
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.