program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Ответ дал: Гость
200: 2
100|0
50|0
25|0
12|1
6|0
3|0
1|1
0|1
200₁₀=11001000₂
489: 2
244|1
122|0
61|0
30|1
15|0
7|1
3|1
1|1
0|1
489₁₀=111101001₂
543: 2
271|1
135|1
67|1
33|1
16|1
8|0
4|0
2|0
1|0
0|1
543₁₀=1000011111₂
950: 2
475|0
237|1
118|1
59|0
29|1
14|1
7|0
3|1
1|1
0|1
950₁₀=1110110110
1025: 2
512|1
256|0
128|0
64|0
32|0
16|0
8|0
4|0
2|0
1|0
0|1
1025₁₀=10000000001₂
Ответ дал: Гость
2^i = 32, i = 5 бит приходится на 1 символ
2^i = 64, i = 6 бит приходится на 1 символ
т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2
информационный объем второго текста в 1,2 больше, чем у первого текста.
Ответ дал: Гость
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
Популярные вопросы