// №1 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);
end;
writeln('R = ', r);
end.
// №1 б)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Summ(n:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 2 to n do
rez := rez + 1/i;
Summ := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Fact(i)/Summ(i);
end;
writeln('R = ', r);
end.
// №2 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 0;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r + Pow(x, i) / Fact(i);
end;
writeln('R = ', r);
end.
// №2 б)
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 1;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r * (i / (i + 1) - Pow(cos(x), i)) ;
end;
writeln('R = ', r);
end.
Напишу основные идеи на языке Си,но преобразовать несложно Вам будет.
1. int N,c1,c2,razn,chastn;
scanf ("%d",&N); // запрашиваем двузначное число
c1=N%10;
N/=10;
c2=N%10;
razn=c2-c1; chastn=c2/c1;
2. int Z;
if (Z>0) Z=Z+1;
if (Z==0) Z=10;
3. int Z, c_right, c_left;
c_right=Z%10;
Z=Z/10;
c_left=Z%10;
4. int Z;
if ( Z%2==0 ) четное ;
else нечетное ;
5. int a,b,sum ; //имеем ввиду a<b
do
{ a=a+1;
sum=sum+a;
}
while (a!=b-1); // (a!=b) - если от а до Б включительно
Как то так. Если возникнут вопросы- пишите :)