1)В предложении 33 символа. Следовательно, размер предложения в кодировке Unicode составляет: 33 · 16 = 528 бит.
2)Найдем количество символов в статье:
10 · 32 · 48 = 5 · 21 · 25· 3 · 24 = 15 · 210.
Один символ кодируется двумя байтами, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет
15 · 211 байт = 15 · 21 килобайт = 30 Кбайт.
3)Общий объём статьи равен x · 64 · 64 · 8 бит = 48 Кбайт.
Следовательно, количество страниц в статье равняется:
x = (48 · 1024 · 8)/(64 · 64 · 8) = 12.
var x,y,z:integer;
function ex(x:integer):integer;
begin
if x>0 then result:=2*x
else result:=x*x;
end;
begin
write('Введите x, y, z: ');
readln(x,y,z);
x:=ex(x);
y:=ex(y);
z:=ex(z);
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.
Вариант без использования функции
var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if x>0 then x:=2*x
else x:=x*x;
if y>0 then y:=2*y
else y:=y*y;
if z>0 then z:=2*z
else z:=z*z;
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.