По вашему рисунку посчитать клеточки сложно, мне показалось, что там всё по 5 клеток. Если это не так, поменять несложно.
использовать Чертежник
алг Зигзаг
нач
сместиться на вектор (0,5)
опустить перо
нц 5 раз
сместиться на вектор (5,5)
сместиться на вектор (5,-5)
кц
кон
I = K * i
i = 1 бит/пиксель
I = 240 пикселей * 1 бит/пиксель = 240 бит = 30 байт
Ответ: 30 байт.
Var s,s1,t1,t2:string;i,n,m:integer;
beginread(s);n:=length(s);for i:=n downto 1 do s1:= s1 + s[i];m:=n div 2;writeln(n, m :4);t1:= copy(s,1,m);t2:= copy(s1,1,m);if t1 = t2 then writeln ('Введенный текст перевертыш')else writeln (' Не перевертыш введенный текст');end.<span />
Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>