#include <iostream>
using namespace std;
int main()
{
int b;
cin>>b;
float a=1;
for(int i=2;i<=b;i++)
{
a = (a*(i-1)+i*i)/i;
}
cout<<a<<endl;
system("PAUSE");
}
-----------------------------------------------------------------------
const N=1000;
var array[1..n] of integer;
i,k,p:integer;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
k:=0;
for i:=1 to p do
if (a[i] mod 4 =0) and (a[i] mod 7 <>0) then k:=k+1;
write(k);
end.
Var a, b: longint;
begin
write ('введите число -> ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
<span>end.</span>
n мощность алфавита
i инф объём
N=2i(в степени )
I инф объём одного сообщения
K колич символов в сообщении
I= K*i
K = I делить на i