Размер предложения стал на 9 байт меньше.
9 байт = 9 * 8 = 72 бита
Каждый символ кодируется 8 битами, найдём количество утерянных символов.
72 / 8 = 9
Мы убираем 9 символов, получается, что в слове 7 букв, так как у нас есть еще 1 запятая и пробел.
Ответ: Носорог.
Ответ:
Если не было информации то человек и другие живые существа ничего не узнали о своем мире , а также человек перестал быть любопытным и т.д
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
Алгоритм подсчета числа и суммы элементов
int z[20];
int s=0,n=0;
for(int i=0;i<20;i++)
if(z[i]<8&&z[i]>2)
{
n++;
s+=z[i];
}
cout<<"sum="<<s<<", num of elem="<<n;
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6