натисніть будь-яку кнопку, щоб продовжити


36

Ваше завдання полягає в тому, щоб створити програму , яка буде відображати наступний текст, чекати користувача натиснути клавішу (це нормально ігнорувати ключі , як ctrl, alt, caps lockі т.д., до тих пір , як ключі подобаються letters, numbers, symbolsі enterне ігноруйте), а потім припиніть програму:

Press any key to continue... 

Доступні нові рядки дозволені. Програма повинна вийти негайно після натискання клавіші. Крім того, програма повинна бути досить портативною (тобто немає заголовків або модулів, специфічних для ОС, працює поза IDE тощо).


Підказка повинна бути точно такою, як показано вище, якщо тільки уникнути нового рядка неможливо.


Це , тому найкоротша відповідь у байтах виграє. Це також моє перше питання з кодовим гольфом, тому я вибачаюся, якщо не знаю правил щодо PPCG.


4
Чи чутливим є регістр вихідного тексту? Чи PAUSEбуде WinBatch правильною відповіддю (еліпсис поширюється ...на . . .)?
FlipTack

13
Також я б запропонував зачекати тиждень або 2, перш ніж приймати будь-яку відповідь
Kritixi Lithos

3
Більшість pauseфункцій мови, ймовірно, не чутливі до клавіш, таких як Caps-Lock або Control (натискається самостійно). Можливо, вам слід уточнити, чи дозволено програмі не помічати ці клавіші
Луїс Мендо

15
Перед тим, як прийняти відповідь, слід почекати кілька тижнів, оскільки незліченні інші порадили вас (все ж ви вирішили проігнорувати їхні поради)
FlipTack

12
@JungHwanMin Я згоден з іншими. Будь ласка, зачекайте, щоб прийняти рішення до тих пір, поки записи не припиняються. Я дійсно не насолоджуюся їздою на репутації американських гірок
Suever

Відповіді:


5

SmallBasic, 18 17 байт

  • Версія 2.0

17 байт

TextWindow.Show()
  • Версія 1.0

18 байт

TextWindow.Pause()

3
Чи не могли ви також просто так зробити TextWindow.Show()? На основі цього сайту, який повинен мати той же ефект.
Suever

20

Пакетна, 46 байт

@echo Press any key to continue...
@pause>nul

Тому pauseщо вихідний текст містить пробіл перед кожним ..


5
Гарний переадресація. Чи можете ви також надіслати вихід, скажімо x,? Тоді xбуде створено файл , який містить текст Press any key to continue . . .. Економить 2 байти, але я не впевнений, чи це суперечить цій проблемі чи будь-яким стандартним лазівкам.
steenbergh

Я деякий час перебуваю на виборі.exe-системи, але в мене таке відчуття @choice /n /m Press any key to continue...було можливим ще кілька десятиліть тому.
манатурка

Вибір має значення за замовчуванням як J і N, тому програма буде продовжуватися лише тоді, коли натискаються J або N, якщо я правильно пам'ятаю.
geisterfurz007 Зупиніть цей хаос

@ geisterfurz007 Також локалізовано значення за замовчуванням. Наприклад, для мене choiceеквівалент choice /c SN(для sim(так) і não(ні) в португальській мові).
Ісмаїл Мігель

Ах, ви праві, @ geisterfurz007. Тепер я пам’ятаю, як нерозумно виглядали мої пакетні файли із переліченим усім алфавітом. Гаразд, тоді це була мертва ідея.
манатурка

15

HTML + JavaScript (ES6), 36 + 25 = 61 байт

Ви дійсно не можете вийти з програми JavaScript, тому очищення веб-сторінки - найкраще, що я можу придумати.

onkeyup=_=>a.innerHTML=''
<a id=a>Press any key to continue...


HTML + JavaScript (ES6), 33 + 28 = 61 байт

Альтернативне рішення, запропоноване @LarsW, яке перенаправляє на about:blank.

onkeyup=_=>location='about:blank'
Press any key to continue...


HTML / JavaScript, 60 байт

Ще одне дивовижне рішення @Ismael Miguel , яке не використовує автономний JS. 1 байт збережено!

<html onkeyup=this.innerHTML=''>Press any key to continue...


HTML + JavaScript (ES6), 26 + 28 = 54 байти

Ще одне рішення @George Reith, використовуючи записи документа.

onkeyup=_=>document.open()
Press any key to continue...

HTML + JavaScript (ES7), 23 + 28 = 51 байт

Ця ж програма з використанням запропонованого оператора зв'язування ES7 :

onkeyup=::document.open
Press any key to continue...


Оскільки більшість цих рішень не є моїми власними, будьте ласкаві та проголосуйте їх у коментарях!


10
36 + 25 - це 61 чи я щось пропускаю?

2
@LarsW, ckjbgames Ну, які шанси? Ніколи не знаєш, поки не напишеш! ;)
darrylyeo

2
<html onkeyup=this.innerHTML=''>Press any key to continue...<- 60 байт. Спробуйте на jsfiddle.net/xhb69401 (працює з обома <html>та <body>)
Ісмаїл Мігель

2
Коротший спосіб очистити документ і не потребує прив’язки. onkeyup=_=>document.open()з Press any key to continue...загальною кількістю 54 байт.
Джордж Рейт

2
Також із запропонованим оператором зв'язування es-next це може бути зменшено до onkeyup=::document.open.
Джордж Рейт

14

MATL, 35 байт

'Press any key to continue...'D0$Y.

Пояснення

'Press any key to continue...'      % String literal
D                                   % Display the string (has trailing newline)
0$Y.                                % Pause until the user presses any key

@LuisMendo Ah гарний улов
Сувевер

2
З іншого боку, теж Y.не є. Можливо, ОП має уточнити. Клавіші, такі як Control та Caps-lock, не зможуть у більшості рішень
Луїс Мендо

1
@LuisMendo Чудово пропустити клавіші управління, блокування шапок тощо
ckjbgames

@LuisMendo Чи не потребує змін для введення ключ? А може, я його неправильно пам’ятаю
Suever

@ Суве О, звичайно! Введення обов'язково
Луїс Мендо

11

TI-Basic, 55 байт

В основному, він фіксується, поки не натискається клавіша. Дуже погані малі літери - це два байти в TI-Basic ...

Disp "Press any","key to continuesin(
Repeat getKey
End

PS Дивіться коментар @GoldenRatio для пояснення, як це працює. Це геній!


Перш за все, кількість байтів наразі вимкнено, тобто насправді 55 байт (тільки що зробили програму на TI-84 + та протестували). По-друге, ця технічно не є дійсною, оскільки вона не відображається. Натисніть будь-яку клавішу для продовження ... і замість цього вона скорочується до 15 символів плюс ... Замість цього, зберігаючи кількість байтів, зробіть це дві команди відправ. :Disp "Press any(не забувайте: у вашому коді він рахується) та Disp "key to continuesin((Гріх змушує ... в 1 байт доповнити новий рядок і розігнати, і це економить простір між будь-яким і ключовим)
Золоте співвідношення

Побийте мене цією першою мовою, про яку я думав.
C Андерсон

Дякую за пораду @GoldenRatio, я думаю, я думав, що getKeyце 2 байти, коли це насправді 1. Я гадаю, Text(чи Output(ви могли б це вмістити в одному рядку. Але, ваша пропозиція краще. Я не думав про використання неявного еліпсису в кінці рядка. Дякую ще раз, я зараз це відредагую.
Тімтех

Thx для його оновлення, і я думаю, що використання disp з комою, нарешті, є вагомою причиною, оскільки він ніколи не зберігав байти. Я зазвичай розміщую їх на окремих лініях через мою схильність натискати чітку кнопку: D. Також чи існує офіційний метод, як оцінити розмір? Під цим я маю на увазі, чи не слід вважати 9 байт, які я не вважав за ім'я програми? І чи варто рахувати 1 байт для стартової двокрапки, яку неможливо видалити? Я позначив це як 0 байт, тому що для пошуку місця я звик віднімати 10 для розміру програми, але, можливо, двокрапка повинна рахуватися.
Золоте співвідношення

Ні, в основному, якщо ви робите абсолютно порожню програму, вона нараховує 0 байт, тоді ви починаєте звідти. Це було б як підрахунок імені вихідного файлу. Крім того, початкова кишка призначена лише для показу і насправді не є частиною програми. Насправді кожен новий рядок автоматично показує двокрапку в редакторі на калькуляторі, але знову ж таки, це лише для показу (спробуйте cemetech sourcecoder, щоб побачити, що я маю на увазі). Нарешті, обхідний рахунок є однаковим, розділимо ми на Dispдва рядки чи ні (але це не завжди так).
Тімтех

8

Баш, 46 43 42 байт

Збережено 1 байт завдяки @DigitalTrauma

read -rn1 -p"Press any key to continue..."

Використовує readвбудований. -rгарантує, що він не дозволяє користувачеві вводити втечі. -n 1дозволяє лише один символ. -pпідказка


Продовжується, поки я не потрапив на <cr>
Гленн Рендерс-Персон

@ GlennRanders-Pehrson Я вважаю, що це може статися, якщо ваш баш не підтримує -n 1. Однак це працює, не запускаючи для мене вхід (v3.2.57) та на моїй машині debain (v4.3.30)
Пуховик

Також не виходить, якщо я наберу цитату (")
Гленн Рендерс-Персон

1
Чи добре це, якщо я вставлю рядок у файл (anykey.sh) і запускаю його. Також добре працює, навіть якщо я видалю пробіл між "-rn" і "1".
Гленн Рендерс-Персон

1
-rn1економить 1 байт
Digital Trauma

8

Haskell , 51 50 байт (спасибі @ villou24)

main=putStr"Press any key to continue...">>getChar

Спробуйте в Інтернеті!


6
Це чекає входу. Ви можете використовувати getCharзамість цього.
Крістіан Сіверс

1
Ви можете зберегти байт, видаливши пробіл між putStrі рядком.
villou24

Нехай відповідач редагує свій власний пост, @ckjbgames, не робіть цього для нього
MildlyMilquetoast


4

QBasic ( QB64 ), 37 (42?) Байт

На жаль, вбудований запит на кінець програми QBasic не має еліпсису, тому нам доведеться друкувати його самостійно:

?"Press any key to continue..."
SLEEP

(SLEEP без аргументу чекає, поки натисне клавіша.)

Цей код робить те, що запитання буквально вимагає, але, здається, він не відповідає духу питання, тому що, звичайно, тоді QBasic відображає "Натисніть будь-яку клавішу для продовження" і чекає натискання клавіші, перш ніж повернутися до IDE. Ось один, що прямує до IDE, на +5 байт:

?"Press any key to continue..."
SLEEP
STOP

STOP- це заява про налагодження. У звичайному QBasic він встановлює точку перелому: виконання зупиняється, і ми повертаємося до IDE, але виконання може бути відновлено знову з F5. Незрозуміло, чи буде це вважатись програмою, що "закінчується". Однак я використовую емулятор QB64, який не може робити точки прориву. При зустрічі STOPвін просто зупиняється - повертаючись прямо до IDE без зайвого повідомлення "Натисніть будь-яку клавішу".


Як не дивно, "Натиснути будь-яку клавішу для продовження" також з'являється при виконанні самостійного QB64 exe. Я намагався використовувати LOCATEдля друку крапки після нього, але QBasic очищає весь нижній ряд, коли він друкує це повідомлення ...
steenbergh

4

Обробка, 89 81 байт

void setup(){print("Press any key to continue...");}void draw(){if(key>0)exit();}

Пояснення

void setup(){print("Press any key to continue...");}

Це потрібно, оскільки я використовую кілька функцій у своїй програмі. Все, що знаходиться всередині, setup()називається, у цьому випадку - рядком "Press any key to continue...".

if(key>0)exit();

Перевіряє, чи key( keyзавжди буде містити значення int останньої натиснутої клавіші) більше 0(тобто не нульовий байт). Якщо умова задоволена, програма виходить з ладу.

void draw(){}

draw() гарантує, що програма завжди буде шукати ключ, а не зупинятися після запуску програми.

(Таке відчуття, коли вбудована мова, схожа на Java, все ще є багатослівною ...)


Я не дуже знаю Обробки, але я думаю , ви повинні бути в змозі замінити void steup(){...}зstatic{...}
Pavel

2
@ Paavel Nope, не працює
Kritixi Lithos

4

Паскаль, 75 65 байт

Це було протестовано у програмі Free Pascal Compiler, версія 3.0.0.
Він може працювати з TurboPascal 7 або новішою версією.

uses Crt;begin write('Press any key to continue...');readkey;end.

До жаль, я не можу замінити readkeyз , readlnоскільки завдання вимагає , щоб будь-який ключ буде прийнятий.


Я перевірив цей код на http://rextester.com/l/pascal_online_compiler , з і без подачі вводу.
Як і очікувалося, програма припиняється через 10 с, оскільки вона сидить в очікуванні натискання клавіші, що ніколи не відбудеться.


Завдяки @manatwork за те, що врятував мені 10 байт, підтвердивши мене неправильним і показавши, що мені це не потрібно program _;.


Ні FreePascal, ні TurboPascal не вимагають використання programключового слова. (Насправді я ніколи не зустрічав такого стародавнього втілення.)
маніпуляція

@manatwork Я спробував це без цього, programі він скаржився. Також я іноді використовую TurboPascal. Той вимагає (зверніть увагу: вимагає ) того program. Якщо ви знаєте будь-яке місце, я можу перевірити, де воно працює, без цього program, я його видалю. Я ненавиджу мати його там. І це uses Crt;.
Ісмаїл Мігель

1
Я не розумію тебе. Це добре працює, включаючи послугу рекстестера, яку ви зв'язали. У моєму командному рядку: pastebin.com/pVr9dqxd
manatwork

@manatwork Ви маєте рацію. Я знаю, чому він скаржився: я писав program;замість того, щоб фактично видаляти цей біт. Дякую, що попередили мене про це.
Ісмаїл Мігель

4

Скретч, 81 байт

image

when gf clicked
say [Press any key to continue...
wait until <key [any v] pressed

( Посилання на Scratchblocks )

Якщо ви хочете, щоб вона зупинила всю програму, коли ви натиснули клавішу (включаючи інші потоки), вам доведеться додати stop all. Якщо ви хочете позбутися діалогового вікна, вам потрібен порожній sayблок ( stop allпрацює також).

Зручно, що Scratch має для цього вбудований!


4

Bash 48 44 42 байт

read -rn1 -p"Press any key to continue..."

@ mame98 Дякуємо за збереження 4 байтів.

@RaisingAgent Дякуємо за збереження 2 байтів.


Ви можете покращити це, додавши прапори, як-от read -srn1 -p".."і видалити останнє пробіл у цитаті промо. Також я не впевнений, чи потрібен вам прапор 's
mame98

1
приберіть останнє пробіл у цитатах _&-s
RaisingAgent

@RaisingAgent Дякую, оновлено :)
Abel Tom


3

Ruby (2.3) (+ Batch), 52 55 54 53 46 байт

Зараз 46 байт завдяки Алексіс Андерсен.

Примітка: Тестовано в Windows, можливо, не буде працювати, якщо немає pauseкоманди.

puts"Press any key to continue...";`pause>nul`

Пояснення

Puts необхідний текст:

puts"Press any key to continue..."

Закінчіть рядок:

;

Запустіть команду Batch pauseта вихід труби на nul:

`pause>nul`

Привіт, ласкаво просимо до PPCG. Я бачу, що у вас є список правок в тілі подання. Хоча це може бути звичайним на інших сайтах, оскільки будь-хто може бачити історію редагування публікації, ми, як правило, залишаємо історію публікації поза тілом (окрім страйку для прорахунку байтів). Це здається гарним першим гольфом, і я сподіваюся, що вам тут буде весело.
Пшеничний майстер

@WheatWizard Дякую, я повинен залишити правки там або видалити їх?
notme1560

1
Я думаю, що це дає набагато більш читабельну відповідь, якщо ви їх видалите, і я особисто рекомендую це зробити.
Пшеничний чарівник

ви можете скоротити це, замінивши систему за допомогою зворотних посилань: ` pause>nul` або навіть коротше, просто скористайтеся функцією get (також немає хорошого способу включити в коментар блокування коду "backitick")
Alexis Andersen

@AlexisAndersen не getsчекає введення, і не просто жодного ключа?
notme1560

3

Java, 127 байт

class P{public static void main(String[]a)throws Exception{System.out.print("Press any key to continue...");System.in.read();}}

Примітка: для того, щоб це працювало, консоль повинна бути встановлена ​​в режимі "необроблений" .


Тоді я боюся , що ваш код повинен встановити консоль так, як original.legin «s рішення Perl робить.
манатура

@manatwork, Also, the program must be fairly portable (i.e no OS-specific headers or modules, runs outside of an IDE, etc.)якщо ви перейдете за цим посиланням SO, немає способу зробити це незалежним від ОС. Значить, відповідь, яку ви зв'язали, однаково достовірна, як і ця.


3

Python 2, 110 байт

import curses as c
s=c.initscr()
c.cbreak()
s.addstr(0,0,'Press any key to continue...')
while not s.getch():1

2

Математика, 62 байти

EventHandler["Press any key to continue...","KeyDown":>Exit[]]

Пояснення

EventHandler["Press any key to continue...","KeyDown":>Exit[]]
EventHandler[                                                ]  (* Create a new EventHandler *)
             "Press any key to continue..."                     (* Print the dialog text *)
                                            "KeyDown":>Exit[]   (* When a key is pressed down, exit *)

2

SmileBASIC, 55 байт

?"Press any key to continue..."@L IF INKEY$()!=""GOTO@L

Пояснили:

?"Press any key to continue..."  '? means PRINT
@L                               'start of loop
IF INKEY$()!="" GOTO @L          'if no key pressed goto @L

WHILE""==INKEY$()WENDменша
12Me21


2

Python 3, 65 байт

Потрібна версія Windows Python.

from msvcrt import*
print("Press any key to continue...")
getch()

msvcrt.getch () не чекає натискання клавіші введення, як введення (), вона повертає першу натиснуту клавішу.

Документи Python для msvcrt.getch (): https://docs.python.org/3/library/msvcrt.html#msvcrt.getch

Завдяки @Fliptack за збереження деяких байтів


Ця відповідь недійсна без import msvcrtкудись
FlipTack

2
Оскільки це код-гольф, ви повинні видалити коментарі зі свого коду. Також використання, from msvcrt import* здається, на 1 байт коротше
FlipTack

cool, thx @FlitTack
Zachary Smith

2

Node.js, 102 101 99 байт

with(process)stdout.write('Press any key to continue...'),s=stdin,s.setRawMode(1),s.on('data',exit)

Не with
надто

@manatwork Приємний! Перший раз withврятував мене байти (або байт)
Джордж Рейт

1
Тепер ви можете зняти фігурні дужки та замінити розриви рядків комами на ще 2 байти.
darrylyeo

Також якщо я не помиляюся, stdout.write`Press any key to continue...`збережу 2 байти в ES6.
darrylyeo

@darrylyeo Commas робота дивовижна дякую! На жаль, тут не може бути використаний тег-літерал, оскільки він фактично проходить у масиві і process.stdout.writeне робить непрямих перетворень на рядок (це просто помилки).
Джордж Рейт

2

Sinclair ZX81 / Timex TS1000 BASIC: Спосіб 1 приблизно 41 байт

1 PRINT "PRESS ANY KEY TO CONTINUE..."
2 GOTO (INKEY$<>"")+VAL "2"

Спосіб 2 приблизно 38 БЮТ

1 PRINT "PRESS ANY KEY TO CONTINUE..."
2 PAUSE VAL "4E4"

Я віддаю перевагу способу 1, як на ZX81, коли PAUSEвиклик мерехтить екраном , і якщо ви хочете досить довго (за умови, що ZX81 не перегрівається і не виходить з ладу) пауза врешті-решт закінчиться, тоді як метод 1 застряг у нескінченний цикл, поки не буде натиснута клавіша, і не мерехтить екран.

Я буду відпрацьовувати правильну кількість байтів, використаних пізніше, коли матиму потрібний біт BASIC, який підкаже мені. До речі, використання VAL "x" замість числа зберігає цінну оперативну пам'ять на ZX81 (я думаю, що це теж саме для ZX Spectrum).


Обидва методи працюватимуть і на Sinclair ZX Spectrum, перевагою є те, що у Spectrum є великі та малі літери, тоді як ZX81 за замовчуванням не має (і не має жодної цитати як стандартного символу).
Shaun Bebbers

Спосіб 2 у спектрі Sinclair ZX може бути скорочений до1 PRINT "Press any key to continue...": PAUSE 4e4
Shaun Bebbers

1
PAUSE 0паузи навіки.
Ніл

Так, я так довго не програмував у Sinclair Spectrum BASIC, що забув про це. PAUSE 0в ZX81 BASIC не призупиняється назавжди.
Shaun Bebbers

1

Perl 5, 79 байт

system "stty cbreak";$|=1;print "Press any key to continue...";read(STDIN,$a,1)

використовується як:

perl -e 'system "stty cbreak";$|=1;print "Press any key to continue...";read(STDIN,$a,1)'

Без призів, звичайно. Я впевнений, що у когось з перлів буде краще.

(89 байт, якщо також потрібно включити виклик інтерпретатора)


@ Павел, він порахував systemу своєму рахунку, тому я не знаю, що ви мали на увазі під цим коментарем.
Дада

1
@ original.legin Я думаю, Perl не зробить набагато кращого за це. Ще кілька байтів, якими ви можете все-таки пограти в гольф: $|=1не потрібно, після цього у вас є пробіл print, ви можете скинути дужки навколо аргументів read, ви можете використовувати зворотні посилання замість системи і, нарешті, printповертає 1, тож ви можете використовувати його замість літтерал 1у заклику до read. Отже, врешті-решт, ми отримуємо:perl -e '`stty cbreak`;read STDIN,$a,print"Press any key to continue..."'
Дада

@Dada Ви також можете поголити 2 байти say, хоча я думаю, що цей підхід не відповідає "переносній" вимозі. Найкраще портативне рішення, яке я можу знайти, - perl -MTerm::ReadKey -E'say"Press any key to continue...";ReadMode 3;ReadKey'52 байти + 16 байт за -MTerm::ReadKey<space>). Будьте уважні, це накрутить ваш термінал, якщо ви не відновите режим читання в кінці ReadMode 1.
ThisSuitIsBlackNot

1
@ThisSuitIsBlackNot Дійсно, я не бачив цієї вимоги щодо портативності. Щодо того say, я більше не користуюся цим (я згоден здебільшого з цією мета-публікацією). Тепер повернемося до короткого коду, IO::Promptбуде коротше Term::ReadKey(40 + 13 = 53 байт): perl -MIO::Prompt -e 'prompt"Press any key to continue... ",-1'. І як це відбувається, він навіть коротший, ніж я запропонував у своєму попередньому коментарі.
Дада

1
@Dada Я бачу обидві сторони -Eаргументу. Востаннє, коли я перевіряв, відповідь JB була беззаперечною протягом чотирьох років, тож це я дотримувався. Можливо, мені потрібно це переглянути ще раз. Щодо IO :: Підказка, хороша знахідка! Хоча це не працює на моїй Strawberry 5.20.2 в Windows, а термін :: ReadKey.
ЦеSuitIsBlackNot

1

PHP, 73 байти

echo"Press any key to continue...";$h=fopen("php://stdin","r");fgets($h);

Запустити його в інтерактивній оболонці PHP ( php -a)


"Програма повинна вийти негайно після натискання клавіші." - Це чекає, поки Enter або затемнення ...
маніпулювання

1

C #, 101 байт

using C=System.Console;class P{static void Main(){C.Write("Press any key to continue...");C.Read();}}

Тестований на Linux, повинен працювати в будь-якій системі, що має бібліотеки .NET і загальну мову виконання.

Програма без вогню:

using C = System.Console; // creating a shorter alias for the System.Console class

class P
{
    static void Main()
    {
        C.Write("Press any key to continue...");    // prints the message
        C.Read();   // waits for key press
    }
}

CTRL, ALT, SHIFT ігноруються. Натиснута клавіша відображатиметься на екрані, якщо вона для друку.

Ехо можна відключити, замінивши C.Read () на C.ReadKey (0 <1) вартістю ще 6 байт.


1

8-е , 47 байт

"Press any key to continue..." . cr con:key bye

Ця програма ігнорує ключі на зразок ctrl, alt, caps lock. Виходить із клавіш, таких як літери, цифри, символи та введіть.

Пояснення

"Press any key to continue..." . cr \ Print message 
con:key                             \ Wait for key input from console  
bye                                 \ Quit program 

Тільки в Windows ви можете зберегти 3 байти, опустившисьcr
Хаос Манор

1

C #, 29 байт

class P{static void Main(){}}

Не впевнений, чи вважається це дійсним, оскільки він друкує:

Натисніть будь-яку кнопку, щоб продовжити . . .

Але є відповідь Партії, яка також друкує це.


1

Четвертий (gforth), 39 байт

." Press any key to continue..."key bye

(Так, вже є восьме рішення, але це коротше)

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.