I = i*n,
где I - <span>информационный объём сообщения, i - кол-во информации для хранения 1 символа в данном алфавите, n - кол-во символов
I = 2*74 = 144 байт
Ответ: 144 байт.</span>
16 цветов - значит, каждый пиксель кодируется 4 битами информации (2^4 = 16), всего 800*600*4 = 1920000 бит = 240000 б = 234 кб
While w<>44 do
Begin
W:=sqrt(w+10/f);
F:=w+sqr(f);
End;
Твоя условия ! Но это не работает переполнение типа.