Как организовать ожидание в программе до нажатия какой-либо клавиши? В QBasic для этой цели подойдет системная переменная INKEY$. Достаточно присвоить ее значение какой-либо символьной переменной, например А$, и организовать бесконечный цикл до тех пор пока длина значения А$ перестанет отличаться от нуля:
А$=""
М10 : A$=INKEY$ ; IF А$="" THEN GOTO M10
Можно воспользоваться и другим приемом — включить в программу оператор ввода в какую-либо переменную символьного типа. Такая переменная предпочтительнее числовой, т. к. в нее можно ввести пустое значение, нажав только клавишу <Enter>. Кроме того, набор любого отображаемого символа не приведет к ошибке.
В Си временный приостанов до нажатия какой-либо клавиши организуют с функции getch.
В Паскале можно организовать бесконечный цикл, аналогичный приведенному выше варианту для QBasic, с логической функции KeyPressed:
while not KeyPressed;
var
N: integer;
begin
write('N = ');
readln(N);
writeln;
writeln('Цифры числа (справа налево):');
while N > 0 do { <-- Выполняем цикл, пока число больше 0 }
begin
write(' ', N mod 10); { <-- выводим остаток деления на 10 }
N := N div 10 { <== находим целую часть от деления на 10 }
end;
readln
end.
Примеры
Входные данные
3
v 3
l 1
u 2
luvu
3
luv
vul
uuu
Выходные данные
6
11 задание не знаю сорри бро дай корону
