uses crt;
var i,n:integer;
x:real;
begin
read(n);
x:=sqrt(2);
for i:=1 to n do
x:=sqrt(x+2);
writeln(x);
<span>end.</span>
N= 8
Q= 600бит
Nc - ?
Решение:
N=2
8= 2 в 3 степени
I= 3 бит/символ
600бит : 3= 200 символов
выделить мышкой, либо нажатием ctrl+a
var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
16 = 2 в степени i
i=4
2^i=2^4
Ответ: 4 бита информационный вес одной буквы.