const
maxsize = 100;
var
i, n, temp: integer;
a: array[1..maxsize] of integer;
begin
i := 1;
write('Введите количество элементов последовательности: ');
read(n);
writeln('Вводите элементы последовательности:');
while (n > 0) do begin
read(temp);
if temp mod 2 = 0 then begin
a[i] := temp;
i := i + 1;
end;
n := n - 1;
end;
n := i - 1;
if n = 0 then
writeln('В последовательности нет чётных элементов')
else begin
writeln('Массив из чётных элементов последовательности:');
for i := 1 to n do
write(a[i]:4);
end
end.
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s)
end.
var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do s:=s+k+i;
writeln(s/(n+1))
end.
var r,n,i,p:integer;
begin
readln(r,n);
p:=1;
for i:=0 to r do p:=p*(n+i);
writeln(p)
end.
var r,i,p,x:integer;
begin
readln(r);
x:=1;
for i:=1 to r do
begin
x:=x*i;
p:=p+x;
end;
writeln(p)
end.
var r,i,p,x:integer;
begin
readln(r);
p:=1;
for i:=1 to r do
begin
x:=x+i;
p:=p*x;
end;
writeln(p)
end.
var m,n,t,i:integer;
begin
readln(t);
writeln('N':3,'M':5);
for i:=1 to (t div 2) do
begin
n:=i*2;
m:=sqr(n)-n;
writeln(n:3,m:5);
end;
end.
var
y,m,n,i:integer;
x:real;
begin
readln(n,m);
writeln('Y':3,'X':10);
for i:=1 to m do
begin
y:=n*i;
x:=sqr(y)*(sqr(y)-y)/y;
writeln(y:3,x:10);
end;
end.