Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм = 2, 54 см) для значений от 1 до 10 дюймов с шагом 1

Const d = 2.54; var i: integer; rez: real; begin for i : = 1 to 10 do begin rez : = i * d; writeln( i, ' см = ', rez, ' дюйм' ); end; end.

  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

По клавішах стриб та скік - бе-ре-гі але-го-струм! раз-два і готово - отстукали слово! ось де пальцях фізкультура от це - . відгадка (відповідь): клавіатура теги загадки: клавіша пальці на ній кнопок дуже багато алфавіт і цифри є щоб написати слово, потрібно кнопки натискати. відгадка (відповідь): клавіатура теги загадки: кнопка алфавіт цифри на дошці по строчечке розмістилися кнопочки здогадайтеся хлопчики як тут тикати пальчиком? відгадка (відповідь): клавіатура теги загадки: дошка кнопочка пальчиквсi !