Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Ответ:
Очевидно что восьмеричная.
Т.к. если складывать поразрядно начиная с младшего разряда
видно что при сложении 6 и 2 переходим в следующий разряд.
Ноль пишем и один в уме.
Далее складываем 4 и 2 и один в уме получаем 7.
Получаем 370 в восьмеричной системе счисления.
Объяснение:
1) N=2^i i-бит/1 символ N - символов в алфавите
N=56 i=6 6*132 бит в сообщении
(6*132)/8=99 байт
Ответ 99 байт
2) i = (24*8)/48=4
N=2^i=2^4=16 символов в алфавите
Ответ 16 символов
3) 2^i=75
i=7
Ответ 7 лампочек
4) N=18-(-14)=32 +1=33 (включая 0)
i=6 бит/1измер
6*144=864 бит или 108 байт
ребус запро100 это (запросто ),рисуй о и там да и если составить получится вода загадка ,