Var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.
1)x-y=11000
110101
- 11101
11000
2)х+у=1010010
110101
+ 11101
1010010
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.