<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
Writeln(SeqGen(n,i->Power(x,2*i+1)/(2*i+1)).Sum)
end.
<u>Пример</u>
n= 9
x= 2.5
418654.338245567
1) 2²³бит=2²⁰байт, поскольку 8 бит=2³
2) 256 символьный алфавит, это значит, что 256=
![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
, i=8 бит на каждый символ
1.4+2+1=7
2.5+2+3=10
3.4+2+3+1=10
4.2+3+1+4= 10
В=4
А=2
Г=3
Р=1
М=5
Var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 <> 0 then
write(i,' ');
end.
//Я немного не в себе, так что могу ошибаться. Если что - я не виновата.
1 - определение модели, как это может быть ложью?
3 - модель не может обладать всеми признаками оригинала, но может повторять важнейшие.
4 - смотри пункт 3
7 - можно создавать модели, отражающие разные признаки одного и того же объекта.