procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
1) <; <; =; <
2)1025 бит; 1 Кбайт; 1025 байт; 1023 Кбайт ;1 Мбайт; 1 Тбайт
#1
<span>Статья набранная на компьютере содержит 8 страниц по 40 строк, в 1 строке 64 символа,определите информационный объем статьи в КБ, в кодировке Unicode.
</span>Решение:
В кодировке Unicode, в распространенной версии один символ кодируется 2 байтами, т.е. 16 битами.
<em>Т.е. мы умножаем весь объём:8*40*64*16=327680 (бит) - объём статьи
</em>Теперь необходимо полученную величину в битах перевести в Кб.
1 байт = 8 бит
1 кб = 1024 байт
Поэтому мы в начале переводим в байты, а далее в Кб:
327680:8:1024=40 Кб
<u>Ответ: 40 Кб - объем статьи
</u>#2
<span>Определите информационный объем слова из 24 символов, в кодировке Unicode.
</span>Решение:
Как и было сказано выше, в данной кодировке 1 символ = 16 бит
<em>Тогда мы 24*16=384 бит - объём слова
</em><u>Ответ: 384 бит или 48 байт.
</u>#3
<span>Определите объем сообщения в символе из 20 символов в кодировке КОИ-8.
</span>Решение:
В кодировке КОИ-8 каждый символ = 1 байту, или 8 битами.
<em>Тогда 8 * 20 = 160 бит - объем сообщения
</em><u>Ответ: 160 бит или 20 байт.</u>
