2^5=32 - i=5 бит
30 байт*8=240 бит
240 бит/5=48 символов
#include <iostream>
int main(){<span>
unsigned int m = 0;
</span><span> std::cin >> m;
</span><span>
int * c = new int[m];
</span><span> int * t = new int[m];
</span><span> for (unsigned int i = 0,n = 0; i < m; ++i) {
</span><span> std::cin >> c[i];
</span><span> (c[i] > 0) ? t[n++] = c[i]: t[m-(i-n)-1] = c[i];
</span><span> }</span>
<span>
for (unsigned int i = 0; i < m; ++i)</span><span> std::cout << c[i] << ',';</span><span /><span>
std::cout << std::endl;</span><span>
for (unsigned int i = 0; i < m; ++i) </span><span>std::cout << t[i] << ',';</span><span />
<span> delete c;
</span><span> delete t;
</span><span> return 0;
</span><span>}</span>
На какое устройство
в какую папку
кому
какой раздел сайта
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.