Вот делением на 2 знаю, а вот другими не пойму что)
а) 1111100
Предложение состоит из 106 символов, считая все пробелы, запятые и точку. Следовательно, при кодировании оно будет занимать 106 байт, это и есть его информационный объем.
В Паскале есть функция Round, которая использует следующий "стандартный" алгоритм округления:
Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица.
А функция Trunc возвращает целую часть числа.
var
p:real;
begin
Write('Введите число: '); Read(p);
Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p))
end.
<em><u>Тестовое решение:</u></em>
Введите число: -12.74
Округленное значение: -13, целая часть: -12
Введите число: 12.93
Округленное значение: 13, целая часть: 12
Введите число: 9.4323
Округленное значение: 9, целая часть: 9
<em>sp - сумма положительных элементов</em>
<em>so - сумма отрицательных элементов</em>
<em>kp - количество положительных элементов</em>
<em>ko - количество отрицательных элементов</em>
<em>fo - первый отрицательный элемент</em>
<em>lo - последний отрицательный элемент</em>
<em>max,min - номера макс и мин эл массива</em>
<em>a[max],a[min] - макс и мин эл массива</em>
<em>sum - сумма эл массива</em>
<em>proiz - произведение эл массива</em>
<em>m1,m2 - два макс эл</em>
<em>maxo - макс среди отрицательных</em>
<em>s1 - сумма эл не превышающих maxo</em>
<em>minp - мин среди положительных</em>
<em>s2 - сумма эл,превышающих minp
</em>s3 - сумма эл от a до b
cn - количество эл от a до b
-----------------------------------------------------------------------------------------------------
const n = 10;
var a:array [1..n] of integer;
i,sp,so,kp,ko,max,min,fo,lo,m1,m2,maxo,s1,minp,s2,aa,bb,s3,cn:integer;
sum,proiz:longint;
f:boolean;
begin
randomize;
so:=0;
sp:=0;
kp:=0;
ko:=0;
f:=false;
for i:=1 to n do
begin
a[i]:=random(21)-10;
if (not f) and (a[i]>1) then f:=true;
write (a[i]:3);
if a[i]>0 then
begin
sp:=sp+a[i];
inc(kp);
end else if a[i]<0 then
begin
so:=so+a[i];
inc(ko);
end;
end;
writeln;
max:=1;
min:=1;
for i:=2 to n do
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
for i:=1 to n do
if a[i]<0 then
begin
fo:=i;
break;
end;
for i:=n downto 1 do
if a[i]<0 then
begin
lo:=i;
break;
end;
proiz:=1;
if f then
sum:=so+sp
else for i:=1 to n do proiz:=proiz*a[i];
m1:=-100;
m2:=-100;
for i:=1 to n do
if a[i]>m1 then
begin
m2:=m1;
m1:=a[i];
end else if (a[i]>m2) and (a[i]<>m1) then m2:=a[i];
maxo:=-100;
for i:=1 to n do
if (a[i]<0) and (a[i]>maxo) then maxo:=a[i];
s1:=0;
for i:=1 to n do
if a[i]<maxo then s1:=s1+a[i];
minp:=100;
for i:=1 to n do
if (a[i]>0) and (a[i]<minp) then minp:=a[i];
s2:=0;
for i:=1 to n do
if a[i]>minp then s2:=s2+a[i];
write ('A = ');
readln (aa);
write ('B = ');
readln (bb);
s3:=0;
cn:=0;
for i:=aa to bb do
begin
inc(s3,a[i]);
inc(cn);
end;
end.
Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
