22 23 24
<span>в первом случае на этаже квартиры 19-24, во втором 22-28, получаем что квртиры 22-24 на 4 этаже в обоих случаях. Вроде так </span>
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
Почему же нет операции?
я знаю как минимум 2 способа
1) через формулу <span>exp(ln(X) * </span>Y<span>)
2) функция pow(X, Y);
но если у вас тема про циклы, видимо вам надо вручную посчитать степень. тогда опишу вам внутренности функции pow
res:=x;
for i:=2 to y do
<span>res:=res*x;
Вот полностью программа
Var res,x,i,y: integer;
Begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
res:=x;
for i:=2 to y do
res:=res*x;
writeln(res);
<span>readln();
end.</span></span>
</span>
Разделение предложений в тексте по смыслу
1) Для кодирования одного из 16 символов необходимо log(2)16 = 4 бита (2^4=16); для кодирования одного из 32 символов необходимо log(2)32 = 5 бит (2^5=32). Объем 1-го письма = 4*120 бит = 480 бит; объем второго - 5*96 = 480 бит. Таким образом, объемы равны.
2) 375 байт = 375*8 бит = 3000 бит. Объем одного символа = 3000/500 = 6 бит. Мощность алфавита = 2^6 = 64 символа.
3) Для кодирования одного из 64 символов необходимо log(2)64 = 6 бит. Количество символов в тексте = 3*40*60. Информационный объем текста = 3*40*60*6 бит = 3*40*60*6/8 байт = 5400 байт.
4) Количество символов в указанном диапазоне = 311-55 = 256. Количество информации в сообщении об одном числе диапазона = log(2)256 = 8 бит = 1 байт (2^8=256).