Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>
Старая задачка)
8126+8126=16252
* N = 800
* N = 2i - формула
* 800 = 2i
9 < i < 10, берем в большую сторону, i = 10 - вес одного кода.
* 320 кодов = 320 * 10 = 3200 бит. Переведем в байты:
3200/8 = 400 байт.
Ответ: 400
Вставил прогу в паскаль он сам все считает
2) 50
3) 56
4) 55
5) 243
6) 35
7) 64
При использовании палитры из 16 цветов для хранения одного пикселя требуется log(2)16 = 4 бита. Объем памяти для хранения изображения = 53*53*4 бит = 11236 бит