29,25,21,17,13,9,5. Те каждое следующее число уменьшается на 4)
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
Нужно сначала перевести размер в дюймы. 1 дюйм = 2.54 см, значит 33.02/2.54 = 13 дюймов.
dpi - это количество точек на дюйм, значит разрешение по горизонтали будет 600*13 = 7800 точек, по вертикали 1200*13 = 15600 точек. Всего в изображении будет 7800 * 15600 = 121680000 точек.
Каждая точка кодируется 4 битами, значит объем изображения в битах равен 121680000*4 = 486720000 бит = 60840000 байт = 59414 кбайт = 58 Мбайт
Ответ: 58 Мбайт