Система команд исполнителя состоит из двух команд: 1. умножить число на 4. 2. прибавить к числу 1. программа для исполнителя записывается в виде строки из цифр 1 и 2 найдите количество различных программ, которые позволяют из числа 2 получить число 83

ответ:Дано: 

Продолжительность фильма 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 МБ 

Попробуй так uses graph, crt;     var             d,r,r1,r2,rr,k,             x1,y1,x2,y2,x01,y01: integer;             xasp,yasp : word; begin   {инициируем графику}         d : = detect;         initgraph(d, r, ' ') ;         k: = graphresult;         if k < > grok then  writeln(grapherrormsg(k))   else begin {определяем отношение сторон и размеры экрана} x1 : = getmaxx div 2; y1 : = getmaxy div 2; getaspectratio(xasp, yasp); {вычисляем радиусы: }   r: = round(3*getmaxy*yasp/8/xasp);   r1 : = round(0.9*r); {часовые деления}   r2 : = round(0.95*r); {минутные деления} {изображаем циферблат}   circle(x1,y1,r); {первая внешняя окружность}   circle(x1,y1,round(1.02*r)); {вторая окружность}     for k : = 0 to 59 do {деления циферблата}       begin             if k mod 5=0 then                     rr : = r1 {часовые деления}           else                     rr: = r2 ; {минутные деления} {определяем координаты концов делений}   x01 : = x1+round(rr*sin(2*pi*k/60));   y01 : = y1-round(rr*xasp*cos(2*pi*k/60)/yasp);   x2 : = x1+round(r*sin(2*pi*k/60));   y2 : = y1-round(r*xasp*cos(2*pi*k/60)/yasp);   line(x01,y01,x2,y2) {выводим деление} end; {готовим вывод стрелок}   setwritemode(xorput);   setlinestyle(solidln,0,thickwidth);   r : = 0; {счетчик минут в одном часе} {цикл вывода стрелок}   repeat     for k : = 0 to 59 do {k = минуты}           if not keypressed then                 begin                               {координаты часовой стрелки}                               x2 : = x1+round(0.85*r1*sin(2*pi*r/60/12));                               y2 : = y1-round(0.85*r1*xasp*cos(2*pi*r/60/12)/yasp);                               {координаты минутной стрелки}                               x01: = x1+round(r2*sin(2*pi*k/60));                               y01: = y1-round(r2*xasp*cos(2*pi*k/60)/yasp);                               {изображаем стрелки}                                 line(x1,y1,x2,y2);                                 line(x1,y1,x01,y01);                                 delay(100); {для имитации реального темпа                                                                           нужно установить задержку 60000}                                                                         {для удаления стрелок выводим их еще раз! }                                 line(x1,y1,x01,y01);                                 line (x1,y1,x01,y01 ) ; {наращиваем и корректируем счетчик минут в часе} inc(r); if r=12*60  then   r : = 0 end until keypressed; if readkey=#0 then k: =ord(readkey); closegraph; end end.