1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9

// Интерполяция строк в "Go"

koko := "pituh"
text = `
ehal ` + koko + `
cherez ` + koko + `
vidit ` + koko + ` v reke ` + koko + `
sunul
`

1. 1
2. 2
3. 3

if err != nil {
    return nil, err
}

1. 1
2. 2
3. 3

// Create a Version 4 UUID, panicking on error.
// Use this form to initialize package-level variables.
var u1 = uuid.Must(uuid.NewV4())

1. 1

- Я так раньше никогда не делала. Мне понравилось. А тебее? - сказала она после того, как я влил в неё свой заряд и, уставший, уселся прямо на ковролин на полу кабинета.

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9

func (c *Client) DeleteFile(filename string) {
	_, err := s3.New(c.session).DeleteObject(&s3.DeleteObjectInput{
		Bucket: aws.String(c.bucket),
		Key:    aws.String(filename),
	})
	if err != nil {
		return
	}
}

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7

func Map[F, T any](s []F, f func(F) T) []T {
    r := make([]T, len(s))
    for i, v := range s {
        r[i] = f(v)
    }
    return r
}

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9

func getTransport(tt string) (iTransport, error) {
	if tt == "scooter" {
		return newElectricScooter(), nil
	}
	if tt == "quadcopter" {
		return newQuadcopter(), nil
	}
	return nil, fmt.Errorf("Wrong type")
}

1. 1
2. 2
3. 3

if req.Lang != "" {
	req.Lang = "EN"
}

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25

REM 101.22.25. Постройте алгоритм разложения натуральных чисел на простые множители.
REM В какой форме будут представлены результаты работы этого алгоритма?
        
Dim input As Integer REM Число, вводимое с клавиатуры
Dim min As Integer, max As Integer

input = Int(Val(T1.Text)) REM Ввод данных
If input < 1 Then input = 1
If input > 1000000000 Then input = 1000000000
L3.Text = input & ": "

min = 2 REM "min" - число, которое проверяется, является ли оно делителем числа "max"
max = input REM "max" - число, для которого ищутся делители

Do While min < max
    If max Mod min = 0 Then
        L3.Text = L3.Text & min & " "
        max = max / min
    Else
        If min * min > max Then Exit Do
        min = min + 1
    End If
Loop

L3.Text = L3.Text & max

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25

REM 52.10.18. Напишите алгоритм подсчёта количества "счастливых" автобусных билетов.
REM (Билет называется "счастливым", если сумма первых трёх цифр номера билета равна
REM сумме последних трёх цифр.)

Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, f As Integer, g As Integer
Dim h As Integer REM Число "счастливых" билетов

h = -1 REM Число 000000 в набор автобусных билетов не входит. Его вычитаем.

For a = 0 To 9
    For b = 0 To 9
        For c = 0 To 9
            For d = 0 To 9
                For f = 0 To 9
                    For g = 0 To 9
                        If a + b + c = d + f + g Then h = h + 1
                    Next
                Next
            Next
        Next
    Next
Next

L3.Text = "Число счастливых билетов " & h