begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
875*10 в степени -3 вот и все
1) 18 + 10 = 28 символов в этом алфавите для идентификатора пользователя
2) N = 2^i
28 = 2^i
i = 5 бит - глубина кодирования 1 символа из этого алфавита
3) 8 * 5 = 40 бит нужно для кодирования одного идетификатора 1 пользователя
4) 500 * 40 = 20000 бит объем памяти, которое отводит эта программа
20000 бит / 8 = 2500 байт / 1024 = 2,44 килобайт - объем памяти, которое отводит эта программа
<!DOCTYPE html><html><head> <meta charset="UTF-8"> <title>Заголовок страницы</title></head><body> <h1>Заголовок страницы</h1> <table border="1" style="width: 60%;"> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> <tr><td><img src="image.png" alt="Изображение"></td></tr> </table></body><span></html></span>
Ответы:
2) 1
3) 2
Но в тесте ошибка т.к нужно не одновременно нажимать, а сначала кнопку на клавиатуре удерживать, а затем на мышке просто нажать