$limit = 100
$Series = (1..$limit) | Get-Random -Count $limit
 
function print {
    param (
        [int[]]$Series
    )
 
    $sqrt = [int][System.Math]::Ceiling([System.Math]::Sqrt($Series.Count))
    $paddingN = [int][System.Math]::Floor([System.Math]::Log10($Series.Count)) + 1
 
    for ($i = 0; $i -lt $Series.Count; $i++) {
        Write-Host (($pattern = switch (($i+1) % $sqrt) {
            0 { ",

using

using namespace System.Linq
 
class kata{
    static [object] CountCharactersInYourString ([string]$inputString){
        [hashtable]$result

class kata{
    static [string] HumanReadableTime

.{
    [int]::Parse(-join $args[0].ToString().ToCharArray().ForEach{[math]::Pow([int]::Parse($_),2).ToString()})
}  9119

. {
    $Enumerator = $Args[0].GetEnumerator()
    while ($Enumerator.MoveNext()) {
        $firstLetter = $Enumerator.Current
        $secondLetter

using namespace System.Diagnostics
 
class foo {
    static $conf = @{
        scriptBlocks = [scriptblock[]]@(
            {0..999999 | Where-Object {-not [bool]($_ % 3)} | Measure-Object | ForEach-Object Count},
            {((0..999999).Where{-not [bool]($_ % 3)}).count}
            {((0..999999).Where{$_ % 3 -eq 0}).count}
            {for (($i=0), ($bill=0); $i -le 999999;$i++){if ($i % 3 -eq 0){$bill++}}$bill}
        )
    }

. {
    <#
    .SYNOPSIS
        Дан массив строк, сгенерировать все возможные уникальные варианты выбора элементов данного массива
    #>
 
    param(
        [string[]]$array
    )
 
    ([Linq.Enumerable]::Distinct(
            [string[]]($array.ForEach{
                    $l0 = $_
                    $array.ForEach{

& {
    <#
    .SYNOPSIS
        Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом.
    .DESCRIPTION
        Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом.
    
    #>
    param(
        [ValidateRange(100,999)]

<#
.SYNOPSIS
    Задача №112198. Сумма цифр не меняется
    https://informatics.msk.ru/
.DESCRIPTION
    Напишите программу, которая находит все числа в диапазоне от a до b ,
    сумма цифр которых не меняется при умножении на 2, 3, 4, 5, 6, 7, 8 и 9
    (например, число 9). Используйте функцию

<#
.SYNOPSIS
    Problema: Лыжник в первый день пробежал 10 км.
.DESCRIPTION
    1. Начав тренировки, лыжник в первый день пробежал 10 км.
    2. Каждый следующий он увеличивал пробег на 10% от пробега предыдущего дня.
    
    Определить:
    а) пробег лыжника за первый, второй,

param(
    [string]$String = "a l k s d j f s o d c v i j n x z m x c n"    
)
 
$String = $String -replace " "
 
$String.toCharArray() | ForEach-Object {$i = 0} {
    "{0}: {1}"

function foo{
    param(
        [int]$number,
        [int]$sum 
    )
    $highPosition = [math]::Truncate([math]::Log10($number))
    $highPosition = $highPosition -eq [double]::NegativeInfinity ? 0 : $highPosition
    $highPositionValue = [math]::Truncate($number

function foo{
    param(
        [Parameter(Mandatory = $true, ValueFromPipeline = $true)]
        $number
    )
 
    if ($number -isnot [int]){
        Return "NO"
    }
    
    if ($number -le 2){
        Return

function fibonachi {
    param(
        [Parameter(Mandatory)]
        [ValidateRange(3,1000)]
        [int]
        $numbers
    )
    $sequence = [System.Collections.Generic.List[bigint]]::new()
    $sequence.Add(0)
    $sequence.Add(1)
    (2..$numbers).ForEach{
        $sequence.Add($sequence[-1] + $sequence[-2])
    }
    return $sequence
}
 
fibonachi 1000

& {
    param(
    [Parameter(Mandatory)]
    [ValidateRange(1, 2000000000)]
    [Int]$Number
  )
  return ([convert]::ToString($Number,2).ToCharArray().Where{$_

& {
    param(
    [Parameter(Mandatory)]