Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, 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;
1. Всего этажей 8, значит, для идентификации каждого этажа достаточно 3 бит данных. (2^3 = 8)
Всего этажей 8, значит, для идентификации каждого этажа достаточно 3 бит данных. (2^3 = 8)Указание одного единственного этажа при таком раскладе занимает 3 бита.
Всего этажей 8, значит, для идентификации каждого этажа достаточно 3 бит данных. (2^3 = 8)Указание одного единственного этажа при таком раскладе занимает 3 бита.ответ: 3 бита.
2. Используем формулу 2^i=N. Так как в алфавите 16 символов (N=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. Переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. Переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. Так что лучше ответ оставить в байтах (192 байта).
3. Мощность алфавита - это количество символов, из которых состоит алфавит.
Мощность алфавита - это количество символов, из которых состоит алфавит.26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ
Объяснение:
(Баал классная)
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
writeln('План можно выдерживать', i, ' лет' );
end.