var A:array[1..100000] of integer; i,k,i1,n:int64;
begin
read(n);
randomize;
for i:=1 to n do
A[i]:=random(2);
writeln('Массив до переформировки:');
for i:=1 to n do
write(A[i],' ');
writeln;
for i1:= 1 to n do
for i:=1 to n-1 do
if A[i]>A[i+1] then begin k:=A[i]; A[i]:=A[i+1]; A[i+1]:=k; end;
writeln('Массив после переформировки:');
for i:=1 to n do
write(A[i],' ');
end.
из ребят пойдут в кино Вика и Сережа (вродебы)
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?
Var y, i, n: integer;
begin
writeln('Введи n');
readln(n);
y := 1;
for i := 1 to n do
y := y *( 2 * i);
writeln(y);
<span>end.</span>
3x + 3x = 10x;
Если x = 0, то основание системы любое, иначе:
(3+3)x = 10x
3 + 3 = 10
Это будет выполнятся только в 6сс.
Ответ: с)