Объяснение:
3) тут просто
var n, i: integer;
begin
for i := 1 to frac(n/2) do
write("Левая Правая ");
if n mod 2 = 1 then write("Левая");
end.
4) Чтобы скобочная последовательность была правильной, нужно, чтобы сумма любых k первых чисел была неотрицательна и чтобы сумма всех n чисел равнялась нулю.
var current_sum, n, x, flag: int;
begin
readln(n);
flag := 1;
current_sum := 0;
for i := 1 to n do begin
readln(x);
current_sum := current_sum + x;
if (current_sum)<0 then flag := 0;
end;
if current_sum<>0 then flag := 0;
if flag = 1 then writeln("является")
else writeln("не является");
end.
Объяснение:
3) тут просто
var n, i: integer;
begin
for i := 1 to frac(n/2) do
write("Левая Правая ");
if n mod 2 = 1 then write("Левая");
end.
4) Чтобы скобочная последовательность была правильной, нужно, чтобы сумма любых k первых чисел была неотрицательна и чтобы сумма всех n чисел равнялась нулю.
var current_sum, n, x, flag: int;
begin
readln(n);
flag := 1;
current_sum := 0;
for i := 1 to n do begin
readln(x);
current_sum := current_sum + x;
if (current_sum)<0 then flag := 0;
end;
if current_sum<>0 then flag := 0;
if flag = 1 then writeln("является")
else writeln("не является");
end.
113 в 10 СС = 1110001 в 2 СС
113 в 10 СС = 305 в 6 СС
113 в 10 СС = 71 в 16 СС
Объяснение:
113 / 2 = 56 + остаток 1
56 / 2 = 28 + остаток 0
28 / 2 = 14 + остаток 0
14 / 2 = 7 + остаток 0
7 / 2 = 3 + остаток 1
3 / 2 = 1 + остаток 1
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
113 в 10 СС = 1110001 в 2 СС
113 / 6 = 18 + остаток 5
18 / 6 = 3 + остаток 0
3 / 6 = 0 + остаток 3
записываем остатки снизу вверх
113 в 10 СС = 305 в 6 СС
113 / 16 = 7 + остаток 1
7 / 16 = 0 + остаток 7
записываем остатки снизу вверх
113 в 10 СС = 71 в 16 СС