На рабочем столе находится файл «Домашнее задание». Марат решил установить пароль на файл. Дополните алгоритм установки пароля

​

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(7,1,99);
  var b:=ArrRandom(7,1,99);
  var c:=ArrRandom(7,1,2);
  var k:=0;
  var r,x:integer;
  for var i:=0 to 6 do begin
    Write(a[i]);
    if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end
    else begin Write(' - '); r:=a[i]-b[i] end;
    Write(b[i],' = '); Read(x);
    if x=r then k+=1
    end; // for
  Writeln('Верных ответов: ',k)
end.

Пример
77 - 21 = 56
53 - 97 = -44
91 + 51 = 142
42 - 65 = -23
70 + 78 = 148
91 - 5 = 86
45 + 41 = 86
Верных ответов: 7

Дано: 
Продолжительность фильма t=60 сек.,  разрешение монитора 800х600 пикселей, n - кол-во цветов 65536, s- частота 16 кадр/сек.
Найти V - Объем файла.

Решение: 
1. Определим глубину цвета i  по формуле: n=2^i = 65536 =2^i  i= 16 бит на пиксель
2. Размер одного кадра R = Разрешение монитора* i= 800*600*16 = 7680000 бит.
3. Тогда объем памяти одноминутного фильма равен V=R*s*t = 7680000*16*60=  7372800000 бит 
7372800000/8 = 921600000 байт
921600000/1024= 900000 Кбайт
900000/1024= 878,9 Мбайт

ответ: Объем памяти равен 878,9 МБ