При работе на компьютере, на мониторе ты видишь оформление (интерфейс) самой операционной системы, значки и т . д. Такой же интерфейс будет и на другом компе.
AutoHotkey — свободно рас язык для автоматизации выполнения задач в Microsoft Windows. AutoHotkey является языком программирования сценариев (скриптов), при к лёгкому назначению и переназначению горячих клавиш, включая кнопки мыши и джойстика. Скрипты представляют собой текстовые файлы, с расширением «.ahk». В комплект поставки входит утилита, позволяющая «скомпилировать» их в EXE файлы, и запускать на любом компьютере с ОС Windows, при этом в создаваемый файл могут быть включены другие файлы, извлекаемые при запуске.
AutoHotkey позволяет автоматизировать задачи пользователя Windows таким образом, какой невозможен или затруднён в других языках программирования. Кроме того, этот язык компактен, самодостаточен и работает на всех версиях Windows «прямо из коробки».
var n, m, max, k, i: integer; ar: array of integer;
function CountOfDel(n: integer): integer; var i, k: integer; begin if n>0 then begin for i := 1 to n do if n mod i = 0 then inc(k); end else for i:= n to -1 do if n mod i = 0 then inc(k); CountofDel := k; if n=0 then CountofDel:=0; end;
begin readln(n, m); k := 0; max := 0; for i := n to m do begin if CountOfDel(i)=0 then begin writeln('0'); exit; end; if CountOfDel(i) > max then begin k := 1; setlength(ar, k); ar[k - 1] := i; max := CountOfDel(i); end else if CountOfDel(i) = max then begin inc(k); setlength(ar, k); ar[k - 1] := i; end; end; for i := 0 to k - 1 do write(ar[i]:4); end.
