Нет под рукой щас паскаля, вот примерный цикл
readln(Input); res := Input; while (not(Input = 0)) do begin readln(Input); res := res * Input; end;
Ответ:
128 бит
Объяснение:
1. Найдем количество пикселей в изображении
256 × 128 = 2⁸ × 2⁷ = 2¹⁵
2. Определим количество бит, приходящихся на пиксель
512 Кбайт = 2⁹ × 2¹⁰ × 2³ = 2²² бит
2²² / 2¹⁵ = 2⁷ = 128 бит - глубина кодирования цвета.
В задаче явная нелепость. Количество цветов 2¹²⁸ ≈ 3.4·10³⁸ - это безумная величина. Реальная глубина кодирования цвета обычно не превышает 32 бит, что дает 16 млн цветов и 256 градаций прозрачности.
Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.
На единицу больше, чем максимальная из цифр в записи чисел. В данном случае максимальная цифра 3, следовательно, достаточно использовать систему счисления с основанием 4.