//Pascal
//Массив заполняется случайными числами от 1 до 10
var
A: array [1..10] of byte;
i: byte;
Sum: real;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(9)+1;
write(A[i]:3);
Sum := Sum + A[i] + 2;
end;
writeln;
for i := 1 to 10 do writeln(Sum/sqrt(abs(A[i])):0:2);
writeln;
end.
A - 20
b - 4...................
<span>#include <stdio.h>
</span><span>#include "stdafx.h"</span>
<span>#include "iostream"</span>
<span>#include "conio.h"
</span><span>#include <span>"locale.h"
</span></span><span>using namespace std;
</span><span>int main()
</span>
{
<span>
int x;</span><span>
cin
>> x;</span><span>
int a = x;</span><span>
x
= (x & 0x55) << 1 | (x & 0xAA) >> 1;</span><span>
x = (x & 0x33) << 2 | (x & 0xCC) >> 2;</span><span>
x = (x & 0x0F) << 4 | (x
& 0xF0) >> 4;</span><span>
int<span>
s, k;</span></span><span>
k
= 1;</span><span>
s
= 0;</span><span>
while (x > 0)</span><span>
{</span><span>
s
+= k*(x % 2);</span><span>
k
*= 10;</span><span>
x
/= 2;</span><span>
}</span><span>
int<span>
p, o;</span></span><span>
p
= 1;</span><span>
o
= 0;</span><span>
while (a > 0)</span><span>
{</span><span>
o
+= p*(a % 2);</span><span>
p
*= 10;</span><span>
a
/= 2;</span><span>
}</span><span>
cout
<< o;</span><span><span>
cout
<< </span>"\n" << s;</span><span>
getchar();</span><span>
getchar();</span><span>
return 0;</span><span>
}
</span>получает
случайное целое типа int<span>, выводит его двоичное представление на экран, </span>
Изменить порядок
следования битов в числе на обратный