Каким десятичным числам равно число, записываемое в виде 100n в системе счисления с основанием n, для: n=2 n=6 n=8 n=16

N  =  2, число  = 4 n  =  6,  число =  36 n = 8, число =  64 n  =  16,  число = 256

Program task; var a: array of integer;     n, b, c, i: integer; begin     write('введите номер билета: №');     readln(n);     b : = n;     while b < > 0 do     begin         b : = b div 10;         c : = c + 1;     end;     if (c < 1) or (c > 6) then         writeln('неверный номер билета. завершение программы.')     else     begin         setlength(a, c);         b : = n;         for i : = c - 1 downto 0 do         begin             a[i] : = b mod 10;             b : = b div 10;         end;         if (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) then             writeln('билет "счастливый"! ')         else             writeln('не повезло');     end;     readln; end.

Program task; var a: array [1..10] of integer;     i, tmp: integer; begin     randomize;     writeln('сформированный массив: ');     for i : = 1 to 10 do     begin         a[i] : = random(10);         write(a[i], ' ');     end;     writeln;     for i : = 1 to 5 do     begin         tmp : = a[i * 2];         a[i * 2] : = a[i * 2 - 1];         a[i * 2 - 1] : = tmp;     end;     writeln('измененный массив: ');     for i : = 1 to 10 do         write(a[i], ' ');     readln; end.