// PascalABC.Net 3.0, сборка 1052
const
a=-6; b=6; h=1;
begin
for var x:=a to b do Writeln('x=',x:2,', y=',ln(sqr(x)-9)/x)
end.
<em><u>Результат выполнения программы:</u></em>
x=-6, y=-0.549306144334055
x=-5, y=-0.554517744447956
x=-4, y=-0.486477537263828
x=-3, y=бесконечность
x=-2, y=NaN
x=-1, y=NaN
x= 0, y=NaN
x= 1, y=NaN
x= 2, y=NaN
x= 3, y=-бесконечность
x= 4, y=0.486477537263828
x= 5, y=0.554517744447956
x= 6, y=0.549306144334055
<em><u>Примечание:</u></em> NaN система выдает, если не может выполнить какое-то действие. В данном случае под знаком логарифма оказывается неположительное число.
<span>Набрать кувшин 8 л. Из него отлить в кувшин 3 л. Затем вылить эти 3 л. Затем опять отлить из 8литрового в кувшин 3 л. Оставшаяся вода в 8литровом кувшине =2 л. Переливаешь в 3литровый. Потом набираешь полный 8литровый. Из него доливаешь воды в 3литровый, т.е. 1 л. Остается 7 л.</span>
Кит - з символа это к
N=2^1
64 это два в шестой
отсюда i=6 бит
I=k*i=3*6=18
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите
Вот TURBO PASCAL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<span>uses crt;
var i,sum,tmax,tmin:integer;sred:real;
t:array [1..30] of integer;
begin
clrscr;
sum:=0;
writeln('vvedite T -> ');
for i:=1 to 6 do begin
write(i,' zamer t = ');
read(t[i]);
end;
tmax:=t[1];
tmin:=t[1];
for i:=2 to 6 do begin
if t[i]>tmax then
tmax:=t[i];
if t[i]<tmin then
tmin:=t[i];
end;
for i:=1 to 6 do
sum:=sum+t[i];
sred:=sum/6;
writeln('Max T = ',tmax);
writeln('Min T = ',tmin);
writeln('srednyaya T = ',sred:3:3);
readkey;
<span>end</span></span>