Для записи 16- цифры необходимо 4 двоичных разряда = 4 бит
101 - имеет 3 цифры
4 * 3 = 12 бит
кол инф = 12 бит
Ответ:
program pr1;
uses crt;
var
i,n:Integer;
s:Real;
function Pow(x:Integer; y:Integer) : Integer;
var
j,s1:Integer;
begin
s1:=1;
for j:=1 to y do s1:=s1*x;
Pow:=s1;
end;
begin
s:=1;
Writeln('Введите колличество аргументов типа 1/2^n.');
Write('n=');
ReadLn(n);
Write('S=1');
For i:=1 to n do
begin
s:=s+((Pow(-1,i))*(1/(Pow(2,i))));
Write('+(',Pow(-1,i),'*1/',(Pow(2,i)),')');
end;
Write('=',s);
readln;
end.
Объяснение:
Через цикл нужное количество раз прибавляешь к S 1/(2^i ) умноженное на -1^i, Что бы менять знак.
Я точно не знаю( с таким не сталкивалась. Скорее всего не правильно.
1.4.50+4.50+4.00+4.00+4.00+3.25+4.25+
4.75=33.25=33.25×100=3325
2.3325÷8=415,625 главное первое число.
Если узнаете ответ напишите правильный
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>