8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
16=2*8 (16 бит > 8 бит в 2 раза) 8бит =1 байту
Сообщение после перекодировки становится в два раза длиннее и равно =
= х+2 =2х
x=2 Кбайта в ASCII
4 Кбайта в Unicode
Количество символов в сообщении:
2 Кбайта : 1 байт =2 *2^10 байт : 1байт=2^11 символов =2048 символов в сообщении