может ты имеешь в виду у каких объектов могут быть такие признаки? тогда у метериальных! <em>(если я не ошибаюсь бывают еще информационные)</em>
Var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
1) Высчитаем количество пикселей в изображении.
128 * 128 = 16384 пикселя.
2) Узнаем информационный вес каждого пикселя.
Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).
256 = 28
Один пиксель несет 8 бит информации.
3) Найдем информационный вес изображения.
16384 * 8 = 131072 бита
4) Переведем биты в байты. 1 Байт = 8 битам.
131072 : 8 = 16384 байта.
5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.
16384 : 1024 = 16 Кбайт.
Ответ: объем памяти нужен минимум 16 Кбайт.
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
<h2>Задание 1</h2>
Так как в записи числа может присутствовать цифра 7, то система счисления называется 7 + 1 = восьмеричной (3)
<h2>Задание 2</h2>
Так как в записи числа присутствует число 5, то данное число существует во всех системах счисления, больших 5, то есть 6, 7, 8, 9, 10 и так далее (1, 3 (какая там система счисления? - речная), 4)
<h2>Задание 3</h2>
101₂ = 100 + 1 = 11 + 1 + 1 = 10 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1. Так как единица в двоичной системе равна единице в десятичной системе, то складываем и получаем ответ 5 (2)
<h2>Задание 4</h2>
Только над целыми (1)
<h2>Задание 5</h2>
a = 8;
b = 6 + 3 · a = 6 + 3 · 8 = 30
Так как нам нужно определить именно значение b, то вычислять значение переменной a не имеет смысла.
<h2>Задание 6</h2>
begin - оператор открытия основного блока, read - чтение значения переменных, wrircln - бред, а print - вывод (4)