Sub aaa()
Dim s As Double, r As Range
Set r = Range("C2:D8")
s = 0
For i = 1 To 7
s = s + r(i, 1) * r(i, 2)
Next i
Cells(9, 3) = s
End Sub
<u>Во вложении - файл с рабочей книгой Excel 2003</u>
1. 1245*1245 = 1550025 пикселей
если 2 цвета то глубина цвета равна 2 - это 1 бит на пиксель
1550025 * 1/8/1024 = 189 Кб
2. 1байт = 8 бит.
Зачем дан размер не понятно. 2^8 = 256
Ответ: 256
Дано
K=512 пикс
V=2 Кб (иногда обозначают I=2 Кб)
Найти
N- ?
Решение
N=2^i
i=V/K =
= \frac{2* 2^{13} }{512} = \frac{ 2^{14} }{ 2^{9} } = 2^{5}
i=32
N=2^32=4294967296
Ответ:
в секунду 62.5мігабайт а вмінуту 3.75 гіг
Объяснение:
4гіга це 4000 мігабай. 4000/64=62.5
62.5*60=3750 мігабай
1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.
2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.
3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.
4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.
5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.
6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.
7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.
8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.
9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.
10. хз что это.