По клавішах стриб та скік - бе-ре-гі але-го-струм! раз-два і готово - отстукали слово! ось де пальцях фізкультура от це - . відгадка (відповідь): клавіатура теги загадки: клавіша пальці на ній кнопок дуже багато алфавіт і цифри є щоб написати слово, потрібно кнопки натискати. відгадка (відповідь): клавіатура теги загадки: кнопка алфавіт цифри на дошці по строчечке розмістилися кнопочки здогадайтеся хлопчики як тут тикати пальчиком? відгадка (відповідь): клавіатура теги загадки: дошка кнопочка пальчиквсi !
natalyazx151092814
13.05.2020
private sub form1_load(sender as object, e as eventargs) handles mybase.load dim array() as byte = {102, 103, 105, 105, 104, 108, 101, 109, 111, 113} gnomesort(array, true) end sub ' // алгоритм гномьей сортировки sub gnomesort(byref array() as byte, byval toupper as boolean) dim tui as integer, index as integer, last as integer if (toupper = true) then tui = 1 else tui = -1 index = 1 last = 2 do if ((array(index) * tui) < (array(index - 1) * tui)) then swap(array(index), array(index - 1)) index -= 1 if (index = 0) then index = last last += 1 end if else index = last last += 1 end if loop while (index < (ubound(array) + 1)) ' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 end sub ' // функция обмена двух переменных private function swap(byref ic_a as integer, byref ic_b as integer) as boolean dim dump as integer = ic_a ic_a = ic_b ic_b = dump return true end function