При кодировании видео "ключевой кадр" - это кадр, который сохраняется полностью и содержит всю информацию о видео. Следующие за ключевым (дельта-кадры) содержит не полную информацию, а только отличия.
Итак, вначале напишем число 74 из которого в итоге должны получить 0.
Вот что получилось у меня.
74|:2
37|-1
36<span>|:2
18</span><span>|-1
17</span><span>|-1
16</span><span>|-1
15</span><span>|-1
14</span><span>|:2
7</span><span>|-1
6</span><span>|:2
3</span><span>|-1
2</span><span>|:2
1</span><span>|-1
Следуя этому получаем: 2121111212121 </span>
Условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. Если оно не нужно - удали фрагмент 'and(a[i,j]<>0)'
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n,1..n] of integer;
i,j: integer; p: longint;
begin
p:=1;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(50);
if (a[i,j]<15)and(a[i,j]<>0) then p:=p*a[i,j];
write(a[i,j]:3);
end;
writeln;
end;
writeln('Proizvedenie =',p);
readln
end.
Var r1,r2,r01,r02: real;
begin
writeln('Введите радиус одной/второй окружности');
readln(r1,r2);
r01:=pi*sqr(r1);
r02:=pi*sqr(r2);
if r01<r02 then writeln('r1 < r2, т.е. ',r1,' < ',r2);
if r01=r02 then writeln('r1 = r2, т.е. ',r1,' = ',r2);
if r01>r02 then writeln('r1 > r2, т.е. ',r1,' > ',r2);
end.