Используется оператор for i: = 1 to 30 do… после завершения выполнения тела цикла i =

ответ:

объяснение:

после завершения i = 30

Var       x1, y1, x2, y2, i: integer; begin       readln(x1, y1, x2, y2);             for i : = 1 to abs(x2 - x1) do               if x2 > x1 then                       write('e')               else                       write('w');             for i : = 1 to abs(y2 - y1) do               if y2 > y1 then                       write('n')               else                       write('s'); end.

1

дано:

k = 16 * 32 * 25 шт = 12800 шт

i = 16 бит

i - ?

решение:

i = k * i (k - кол-во символов, i - вес одного символа/бит на символ)

вес текста i = k * i = 12800 * 16 бит = 204800.0 бит

204800.0 бит = 25600.0 байт = 25.0 кбайт

2

дано:

k = 16 * 32 * 20 шт = 10240 шт

i = 16 бит

i - ?

решение:

i = k * i (k - кол-во символов, i - вес одного символа/бит на символ)

вес текста i = k * i = 10240 * 16 бит = 163840.0 бит

163840.0 бит = 20480.0 байт = 20.0 кбайт

3

дано:

k = 32 * 32 * 30 шт = 30720 шт

i = 8 бит

i - ?

решение:

i = k * i (k - кол-во символов, i - вес одного символа/бит на символ)

вес текста i = k * i = 30720 * 8 бит = 245760.0 бит

245760.0 бит = 30720.0 байт = 30.0 кбайт