Какое условие следует использовать для вычисления Y по формулам: Y=X+15, при X>0; Y=X-15, при X 0 then Y:=X+15 else Y:=X-15; if X>0 then Y:=X-15 else Y:=X+15; . if X<0 then Y:=X+15 else Y:=X-15; if X<=0 then Y:=X+15 else Y:=X-15; if X<=0 then Y:=X+15;

1. Определим объем памяти, который занимает одна страница.
Символ текста кодируется 16 битами или 16/8=2 байтами. 1024 символа займут 1024х2=2048 байт. Рисунок состоит из 256х128=32768 точек, а цвет каждой точки кодируется 16 битами или 16/8=2 байтами. Следовательно, рисунок займет 32768х2=65536 байт.
Итого страница займет 2048+65536=67584 байт
2. Определим объем книги.
В книге 512 страниц, поэтому её объем составит 512х67584=34603008 байт.
Используем для ответа более крупные единицы.
34 603 008 /  1 024 = 33 792 Кбайта
33 792 / 1024 = 33 Мбайта
ответ: книга имеет объем 33 МБ

Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if  (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
end.

Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
 Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
end.