Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,',');
writeln;
<span>end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,',');
writeln;
<span>end.
Задание 3:
Var n,k,i:integer;
begin
writeln('Введите N');
readln(n);
writeln('Введите K');
readln(k);
for i:=1 to n do
write(k,',');
writeln;
<span>end.
<u>Научитесь наконец писать разборчиво задания! Ничего не понятно!!!</u></span></span></span>
16 бит=2 байта
Колво символов*2 байта=108 байт
Ответ 1)
Ответ: За 17 вопросов Вася гарантированно сможет узнать код.
Думаю, что 5 бит.
<span>всего у игрока 16 клеток и возможность поставить один знак из двух (крестик или нолик) Определяем количество вариантов. их 32 (16 клеток * 2 знака). по формуле n = 2 в степени i, находим 32 = 2 в степени 5. Следовательно количество инфомации 5 бит</span>
<span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на третьем месте цепочки стоит одна из бусин H, E;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на втором месте – одна из бусин D, E, C, которой нет на третьем месте;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD EDHC DEHE
</span><span>– в начале стоит одна из бусин D, H, B, которой нет на втором месте;
</span>DEHD HEHC DCEE DCHE HDHD DEHE
<span>
– в конце – одна из бусин D, E, C, не стоящая на первом месте.
</span>HEHC DCEE DCHE HDHD DEHE<span>
Ответ: 5</span>
