На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0, Е = 1, У = 2. Тогда получим: 1) 000000, (0) 2) 000001, (1) 3) 000002, (2) 4) 000010, (3) ... 301) ... (300) а это получаются числа записанные в троичной системе счисления. На 301 месте будет стоять число равное в десятичной системе 300 Переведем число 300 из десятичной системы в троичную, получим: 300 : 3 = 100 - остаток 0 100 : 3 = 33 - остаток 1 33 : 3 = 11 - остаток 0 11 : 3 = 3 - остаток 2 3 : 3 = 1 - остаток 0 1 : 3 = 0 - остаток 1 т.е. получаем число 102010 в троичной системе счисления. Подставив обратно наши буквы получим ответ: ЕАУАУА.
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;