begin var a := ArrRandom(30, -100, 100); //Массив из 30 элементов от - 100 до 100 Println('Исходный массив', a); var x:=a.Where(x->x>1); Println('Минимальное простое: ', x.Where(x -> Odd(x)).Min); end.
AutoHotkey — свободно рас язык для автоматизации выполнения задач в Microsoft Windows. AutoHotkey является языком программирования сценариев (скриптов), при к лёгкому назначению и переназначению горячих клавиш, включая кнопки мыши и джойстика. Скрипты представляют собой текстовые файлы, с расширением «.ahk». В комплект поставки входит утилита, позволяющая «скомпилировать» их в EXE файлы, и запускать на любом компьютере с ОС Windows, при этом в создаваемый файл могут быть включены другие файлы, извлекаемые при запуске.
AutoHotkey позволяет автоматизировать задачи пользователя Windows таким образом, какой невозможен или затруднён в других языках программирования. Кроме того, этот язык компактен, самодостаточен и работает на всех версиях Windows «прямо из коробки».
Сочетание Ctrl + --> это прыжок на начало следующего слова. Сочетание Ctrl + Del это удалить часть слова от курсора до пробела. Если курсор стоит перед 1 буквой - удалится всё слово. 1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(". 2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках, и скобку ")". 3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно" ответ: 3) 1 клавишу и 8 сочетаний. Как вы за компьютером работаете, если MS Word не знаете?
function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
end;
end;
begin
var sqnc := ReadArrInteger('Вводи: ', ReadInteger('Длина массива: '));
sqnc.Where(p -> IsPrime(p)).Min.Println;
end.
Объяснение: