MarmaladeKnight

//JS

function preparePhrase(phrase) {
  return phrase.toLocaleLowerCase()
        .replace(/[^0-9а-яa-z]/gi, "");
}

function isPalendrome(phrase) {
    const preparedPhrase = preparePhrase(phrase);

MarmaladeKnight

Public Class Form1
    Private Sub РАДИОЛОКАЦИОННЫЕ_СТАНЦИИBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles РАДИОЛОКАЦИОННЫЕ_СТАНЦИИBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.РАДИОЛОКАЦИОННЫЕ_СТАНЦИИBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database6DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "Database6DataSet.РАДИОЛОКАЦИОННЫЕ_СТАНЦИИ". При необходимости она может быть перемещена или удалена.

MarmaladeKnight

Public Class Form1
    Private Sub ПРЕДПРИЯТИЯBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ПРЕДПРИЯТИЯBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ПРЕДПРИЯТИЯBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database4DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "Database4DataSet.ПРЕДПРИЯТИЯ". При необходимости она может быть перемещена или удалена.

MarmaladeKnight

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim array(12, 12), sum, count As Integer

        sum = 0
        count = 0

        randArray(array, 12, 12)
        output(array, ListBox1)

MarmaladeKnight

var 
value, i, j, pow :integer; 

function func(a, b: integer): integer; 
    var index: integer; 
begin 
    index := 0; 
    while (a mod b = 0) do 
    begin 
        a := a div b; 

MarmaladeKnight

var 
value, i, pow :integer; 

function func(a, b: integer): integer; 
    var index: integer; 
begin 
    index := 0; 
    while (a mod b = 0) do 
    begin 

MarmaladeKnight

 
//fpc 3.0.0 

program HelloWorld; 


var 
value, i, pow :integer; 

function func(a, b: integer): integer; 

MarmaladeKnight

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim array(12, 12), sum, count As Integer

        sum = 0
        count = 0

        randArray(array, 12, 12)
        output(array, ListBox1)

MarmaladeKnight

PS C:\studio\b4w_server\client> bower install
bower fp-look#*             not-cached ssh://git@devops.triumph.msk.ru:9022/triumph/b4w-look.git#*
bower fp-look#*                resolve ssh://git@devops.triumph.msk.ru:9022/triumph/b4w-look.git#*
bower w-store#*             not-cached ssh://git@devops.triumph.msk.ru:9022/bower_components/w-store.git#*
bower w-store#*                resolve ssh://git@devops.triumph.msk.ru:9022/bower_components/w-store.git#*
bower fp-video-player#*     not-cached ssh://git@devops.triumph.msk.ru:9022/tula.cloth/bower_components/fp-video-player.git#*
bower fp-video-player#*        resolve ssh://git@devops.triumph.msk.ru:9022/tula.cloth/bower_components/fp-video-player.git#*
bower fp-tree#*             not-cached ssh://git@devops.triumph.msk.ru:9022/tula.cloth/bower_components/fp-tree.git#*
bower fp-tree#*                resolve ssh://git@devops.triumph.msk.ru:9022/tula.cloth/bower_components/fp-tree.git#*
bower fp-forms#*            not-cached ssh://git@devops.triumph.msk.ru:9022/tu

MarmaladeKnight

Option Strict On
Imports System.Math
Public Class Form1
    Function vvod(ByVal t As TextBox) As Double
        Return Val(t.Text)
    End Function
    Sub vivodlist(ByVal t As String, ByVal lb As ListBox)
        lb.Items.Add(t)
    End Sub
    Public Function fun1(ByVal x As Double, ByVal y As Double) As Double