kbndbyb6
?>

балов даю, надо решить информатику на фото увидите..

Информатика

Ответы

amaraks67

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, 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;

dilanarthur27
Для того чтобы узнать какое число стоит на 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 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

балов даю, надо решить информатику на фото увидите..
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kush-2640
Акимцева27
dannytr
Рудаков Бахтовар
teashop
Sergei1805
Lugovoi
Svetlana ALLA
KosarinPotemkina1888
Olgera1
Эдуардович873
evgeniy1988486
aleksey7800
azarovaelena19812
layna1241383
▲