Компьютерная клавиатура — это устройство ввода: цифр, букв, команд и символов в компьютер. Состоит из клавиш расположенных в определённом порядке.
Назначение клавиш:
Пробел — Делает пространство между словами. Удаляет выделенный объект.
Esc — Возвращает к предыдущему состоянию (меню, экрану) или выходу из приложения, программы ( только если выход таким предусмотрен приложением).
Print Screen — делает снимок (скриншот) экрана.
Pause/Break — Предназначена для прерывания текущего процесса.
Insert — Переключается из режима «вставки» в режим «замены».
Delete — Удаляет «выделенные» объекты (строки текста, папки, файлы).
Home — Переход на начало заполненной строки.
End— Переход на конец заполненной строки.
Page Up — Перелистывает страницу вперёд.
Page Down— Перелистывает страницу назад.
Backspase — Удаляет знаки во время печатания текста.
Tab — Переход выбора некоторых элементов, кнопок во многих программах.
Caps Lock — Переключает заглавные и прописные букв.
Shift — Нажатие этой клавиши – даёт заглавную или прописную букву. Зависит от того включен ли "Caps Lock".
Alt — Чтобы перейти на противоположный язык (с английского на русский и наоборот) – надо нажать клавиши Alt и не отпуская, нажать Shift.
Ctrl — Открывает дополнительные возможности программ.
Nut Look – Включает цифровую клавиатуру.
Enter — Подтверждает команду «да», или переход на следующую строку.
Комбинации клавиш, применяемые в MS-DOS:
Shift - PrtScr — Печатает на принтере копию содержимого экрана.
Ctrl - Pause/Break — Принудительное завершение работы выполняемой программы или команды.
Ctrl - Alt - Del — Одновременное нажатие этих клавиш ведет к перезагрузке операционной системы.
PascalABC.NET
function IsPrime(n:integer): boolean; // простое?
begin
if n <= 1 then
begin
Result := False;
exit
end;
Result := True;
var (j, r) := (2, Round(Sqrt(n)));
while Result and (j <= r) do
if n mod j = 0 then
begin
Result := False;
exit
end
else
j += 1;
end;
function IsHyperPrime(n: integer): boolean; // гиперпростое?
begin
Result := False;
var k := 10;
while n > 10 do
begin
n := n div 10;
if not IsPrime(n) then exit
end;
Result := True
end;
begin
var (a, b) := ReadInteger2;
var found := False;
foreach var n in Range(a, b) do
if IsPrime(n) then // найдено простоe число
if IsHyperPrime(n) then
begin
found := True;
n.Print
end;
if not found then
Write(0)
end.
