11025000*32*10*2=7056000000 бит = 882000000 байт = 861328,125 Кб = 841,1407470703125 Мб
Верно.
Массив из трех констант целого типа.
const - массив констант
a - идентификатор массива
[1..3] - размерность массива
integer - тип элементов массива
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
Количество символов опр. так: 2^3=8