Часть 3 ( с развернутым ответом)12 скорость передачи данных по локальной сети 512000 бите.передача файла через это соединение заняла 1 минуту. определитеобъем данного файла в килобайтах.13 вычислите необходимый объем видеопамяти для графическогорежима, если разрешение экрана монитора составляет 1024 на 768пикселей и глубина цвета 32 бита.​

ответ:

12 скорость передачи данных по локальной сети 512000 бите.

передача файла через это соединение заняла 1 минуту. определите

объем данного файла в килобайтах.

итак, есть скорость: 512000 бит/с

есть время: 60 сек;

нужно найти расстояние. 60*512000=2048000*15 бит

2048000*15/8/1024=30000/8=15000/4=7500/2=3750 килобайт

13 вычислите необходимый объем видеопамяти для графического

режима, если разрешение экрана монитора составляет 1024 на 768

пикселей и глубина цвета 32 бита.​

1024*768*4=3 мегабайта

var digits: set of '0'..'9'; st: string; i,s,t,t1: integer; begin  read(st)  for i : = 1 to length(st) do begin      if not (st[i] in digits) then begin          s: =s+t;           t: =0;       end      else begin           t1: =integer(st[i]);           t: =t*10+t1;       end;   end;   writeln('s=',s)end.

 

на руби куда легчеst=gets.to_sst=st.gsub(/\d+/,',')a=(st.split(","))s=0a.each_index do |i|      a[i]=a[i].to_i      s+=a[i]endp ap s

 

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

 

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.