<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>
Изменить порядок
следования битов в числе на обратный
66. 256 = 2^8. 1 символ равен 8 бит.
15*32*64*8*8 = 1966080 байт
Const
percent = 13.0;
limit = 250.0;
plan = 180.0;
perv_zapas = 1000.0;
var
year: integer;
zapas, ulov: real;
begin
Writeln('Год Запас рыбы,т. Улов,т');
zapas := perv_zapas;
for year := 1 to 20 do
begin
zapas := zapas * (1 + percent / 100);
if zapas - plan < 250 then ulov := zapas - 250
else ulov := plan;
zapas := zapas - ulov;
if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
end
end.
<em><u>Результат выполнения программы:</u></em>
Год Запас рыбы,т. Улов,т
1 950.0 180.0
2 893.5 180.0
3 829.7 180.0
4 757.5 180.0
5 676.0 180.0
6 583.9 180.0
7 479.8 180.0
8 362.1 180.0
9 250.0 159.2 - меньше плана
10 250.0 32.5 - меньше плана
11 250.0 32.5 - меньше плана
12 250.0 32.5 - меньше плана
13 250.0 32.5 - меньше плана
14 250.0 32.5 - меньше плана
15 250.0 32.5 - меньше плана
16 250.0 32.5 - меньше плана
17 250.0 32.5 - меньше плана
18 250.0 32.5 - меньше плана
19 250.0 32.5 - меньше плана
20 250.0 32.5 - меньше плана
var
x, y, f: real;
begin
read(x, y);
f := sqr(3 * (x + 5)) - 6 * y + 5;
writeln(f)
end.
Вес файла-56+30=1680 Кбит(210Кбайт=215040байт)
1 Символ в Unicode-1 байт
На 1 странице умещается 3072 байт
215040/3072=70 страниц