1)
var n,i:integer;
p:real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*2*i;
writeln('p=',p);
end.
2) var i,s,n:integer;
begin
write('Введите n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Сумма s=',s);
end.
<u><em><span>Множество может быть замкнутым и незамкнутым, полным и пустым, упорядоченным и неупорядоченным, счётным и несчётным, конечным и бесконечным. Более того, как в наивной, так и в формальной теориях множеств любой объект обычно считается множеством.</span></em></u>
Решения находятся в приложениях.
Красным цветом показаны результаты выполнения алгоритмов.
Полагаю здесь ответ нужно написать
При итерациях:
1) s = 3
2) s = 6
3) s = 18;
Вывод 18
Const n=20;
var x : array[1..n] of integer;
i, k1, k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(221)-70;
write(x[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
begin
if x[i] > 0 then k1:=k1+1;
if x[i] < 0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
<span>end.
Пример:
Исходный массив:
73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25
<span>k1=13 k2=7</span></span>