Это глупо-напиши хотябы автора учебника и год издания
Const
<span> p = 3.14; </span><span>//число "пи"
</span>
var
<span> N: </span>byte;
<span> R, D, L, S: </span>real;
begin
{Сообщаем кратко данные задачи: }
writeln(' Пусть в окружности:');
writeln(' 1)R - радиус;');
writeln(' 2)D - диаметр;');
writeln(' 3)L - длина;');
writeln(' 4)S - площадь круга.');
writeln;
writeln(' Введите номер одной из величин (от 1 до 4):');
write(' N = ');
<span> readln(N); </span>//Вводим номер величины.
{Здесь используем цикл. Запрашивается ввод до тех пор, пока
номер N не будет лежать в диапазоне [1, 4]:}
<span> </span>while<span> (N < 1)</span>or(N > 4)<span> do</span>//Условие вхождения в цикл.
<span> </span>begin
writeln(' Такого номера здесь нет!');
writeln(' Введите другой номер (от 1 до 4):');
write(' N = ');
<span> readln(N) </span>//Снова вводим номер.
<span> </span>end;
writeln;
{Сообщаем о том, какую величину мы ввели,
а потом запрашиваем ввести её значение:}
write(' Это '<span>); </span>
<span> </span>case<span> N </span>of
<span> 1: </span>begin
writeln('радиус окружности. Введите его значение:');
write(' R = ');
<span> readln(R) </span>
<span> </span>end;
<span> 2: </span>begin
writeln('диаметр. Введите его значение:');
write(' D = ');
<span> readln(D) </span>
<span> </span>end;
<span> 3: </span>begin
writeln('длина окружности. Введите её значение:');
write(' L = ');
<span> readln(L) </span>
<span> </span>end;
<span> 4: </span>begin
writeln('площадь круга. Введите её значение:');
write(' S = ');
<span> readln(S) </span>
<span> </span>end
<span> </span>end<span>; </span>
writeln(' Тогда для остальных величин будем иметь:');
writeln;
<span>{Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R), </span>
выразим последовательно три величины через четвертую: }
<span> </span>case<span> N </span>of
1:<span> begin</span>{Здесь дано R. Находим D, L и S: }
writeln(' диметр: D = ', 2 * R);
writeln(' длина: L = ', 2 * p * R);
writeln(' площадь: S = '<span>, p * sqr(R)) </span>
<span> </span>end;
<span> 2: </span>begin{Здесь дано D. Находим R, L и S: }
writeln(' радиус: R = ', D / 2);
writeln(' длина: L = ', p * D);
writeln(' площадь: S = ', p * sqr(D / 2))
<span> </span>end;
<span> 3: </span>begin{Здесь дано L. Находим R, D и S: }
writeln(' радиус: R = ', L / p / 2);
writeln(' диаметр: D = ', L / p);
writeln(' площадь: S = '<span>, sqr(L) / p / 4 ) </span>
<span> </span>end;
<span> 4: </span>begin{Здесь дано S. Находим R, D и L: }
writeln(' радиус: R = ', sqrt(S / p):7:4);
writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4);
writeln(' длина: L = ', 2 * sqrt(p * S):7:4)
<span> </span>end
<span> end </span>
end<span>.</span>
//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.
Мощность алфавита - это N, а N=2^i
i-это один символ из алфавита.
В твоей задаче известно, что i=9 бит, а значит N = 2^9= 512
Ответ: 512
^ - это степень