1/8кбайт=1024/8байт=1024*8/8бит=1024бит
I=k*i, где I - инфор. обьем, k - количество символов, i - мощность одного символа.
N=2^i, где N - кол-во символов в алфавите
I=1024бит
k=1024 символов
i=I/k=1024/1024=1
N=2^1=2
Ответ: 2 символа
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.
128 * 128 = 16384 пикселей
4 Кбайт = 4096 байт = 32768 бит
32768 / 16384 = 2 бита на пиксель
2² = 4
Ответ: 4 цвета.
Var
i,x:integer;
begin
i:=0;
while x<>0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<span>using</span><span>System</span><span>;</span>
<span>class</span> Summa <span>{</span><span>static</span><span>void</span> Main<span>(</span><span>)</span><span>{</span><span>int</span> n <span>=</span> Convert<span>.</span><span>ToInt32</span><span>(</span>Console<span>.</span><span>ReadLine</span><span>(</span><span>)</span><span>)</span><span>;</span><span>int</span> i<span>;</span><span>int</span> sum <span>=</span><span>0</span><span>;</span><span>for</span><span>(</span>i<span>=</span><span>1</span><span>;</span> i <span><=</span>n<span>;</span> i<span>++</span><span>)</span><span>{</span>
sum <span>=</span> i<span>+</span>i<span>;</span><span>}</span>
Console<span>.</span><span>WriteLine</span><span>(</span>sum<span>)</span><span>;</span><span>}
</span>
