n = 10; //Количество чисел, которое нужно ввести var a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры} number, i: integer; //number - количество чисел
begin number:= 0; //Обнуляем счетчик for i:= 1 to n do //Вводим n двузначных чисел begin writeln('Введите двузначное число'); readln(a[i]); end; write('Числа, которые делятся на 4,но не делятся на 6: '); for i:= 1 to n do {Распечатываем числа, которые делятся на 4, но не делятся на 6} if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1} begin write(a[i], ' '); number:= number + 1; end; writeln; writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number); 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 Кбайт.
const
n = 10; //Количество чисел, которое нужно ввести
var
a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
number, i: integer; //number - количество чисел
begin
number:= 0; //Обнуляем счетчик
for i:= 1 to n do //Вводим n двузначных чисел
begin
writeln('Введите двузначное число');
readln(a[i]);
end;
write('Числа, которые делятся на 4,но не делятся на 6: ');
for i:= 1 to n do {Распечатываем числа, которые делятся на 4, но не делятся на 6}
if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
begin
write(a[i], ' ');
number:= number + 1;
end;
writeln;
writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.