Доброго времени суток. в №2, уравнения нужно записать в виде кода в visual basic

Информационный объем фильма I определим по формуле:

I=t*k*i*n, где t- время видео(с), k-количество пикселей экрана, i- глубина цвета (бит), n- частота обновления экрана (кадр/с.).

Глубину цвета i определяется из соотношения N=2^i, где N- количество цветов в палитре.

i=㏒₂N= ㏒₂4096= 12 бит

I=(3*60)*(1280*1024)*12*16/(8*1024*1024*1024)= 5,27 Гбайт

Задача 2.

Один кадр содержит 512 Кбайт.  За секунду сменяется 24 кадр, значит объем информации за секунду: 512*24= 12288 Кбайт= 12 Мбайт
Умножив это значение на продолжительность фильма получим сколько информации содержит весь фильм
12*(30*60)= 21600 Мбайт= 21,09 Гбайт

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.