Дано:
К=800*600
i= 16 бит
T=10 с
v=20 кадра/с
А-?
Решение:
I=K*i
A=I*v*T
I=800*600*16 бит=7680000 бит=937,5 Кбайт
A=937,5 Кбайт*20 кадра/с * 10с=187 500 Кбайт=0,18 Гбайт
Ответ: 0,18 Гбайт
Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.
Ответ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.
IPod ( это плеер от фирмы эпл туда можно скачивать песни с интернета и можно слушать музыку с флешки на нем всего 5 кнопок