1 <span>сообщение информативно, если оно пополняет знания человека</span>
2 алфавитный, содержательный, вероятностный
3 бит
4 I=log2 N
5 5 бит
6 8
что смогла
Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
var
i, k, n: integer;
begin
read(n);
for i := 10 to 99 do
if i mod 10 + i div 10 = n then begin
writeln(i);
k := k + 1;
end;
writeln('k = ', k);
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108