Нужно через просмотр событий в windows 10 запустить экран приветствия к какой либо программе. например запускаешь excel и должно вывести сообщение "вы запустили программу excel"
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.
Так, ну давайте сначала поймём, что делает программа то.
У нас есть массив, которые состоит из 10 элементов.
Затем, мы видим цикл, который проходит по всему массиву, в нем мы видим if, который проверяет больше ли k-тый элемент массива, чем 12.
Получается, что программа считает сколько элементов массива больше 12.
Давайте смотреть.
Изначально m = 0
1 Элемент: 12 > 12, условие не выполняется m = 0
2 Элемент 15 > 12, условие выполняется, m = 1
3 Элемент 17 > 12, условие выполняется, m = 2
4 Элемент, 15 > 12, условие выполняется, m = 3
5 Элемент, 14 > 12, условие выполняется, m = 4
6 Элемент, 12 > 12, условие не выполняется, m = 4
7 Элемент, 10 > 12, условие не выполняется, m = 4
8 Элемент, 13 > 12, условие выполняется, m = 5
9 Элемент, 14 > 12, условие выполняется, m = 6
10 Элемент, 15 > 12, условие выполняется, m = 7
На экран будет выведено число 7