1. Определить маску, объединяющую все файлы с любым расширением, вторая буква которого А, а имя состоит ровно из пяти букв. (не могу понять что именно нужно написать) 2. Написать полное имя файла Интересный фильм. (по рисунку)
Dim A(100) As Integer, Odin As Boolean Dim k As Integer , i As Integer Randomize For i = 1 To 100 A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100 Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию Next i Print "Повторяющиеся элементы" For i = 1 To 100 For k = i+1 To 100 If A(i) = A(k) Then Print A(i) & CHR(9); Next k Next i Print "Не повторяющиеся элементы" For i = 1 To 100 Odin = True For k = i+1 To 100 If A(i) = A(k) Then Odin = False Next k If Odin = True Then Print A(i) & CHR(9); Next i End
Использовать Чертежник алг МИМ нач опустить перо сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) поднять перо сместиться на вектор(1,0) опустить перо сместиться на вектор(0,3) сместиться на вектор(0,-3) сместиться на вектор(1.5,3) сместиться на вектор(0,-3) поднять перо сместиться на вектор(1,0) опустить перо сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) сместиться на вектор(0.75,3) сместиться на вектор(0.75,-3) кон
С:/Фильмы/Интересный фильм.avi
Объяснение: