Word и так имеет такой тип
Как бы не чего переделывать
Разрешение сканара А. Точки на дюйм
Наименьгая единица информации Е. Бит
8 двоичных разрядов Г октет
Напишу на паскале
Решается проверкой трех условий
Количество пикселей 64*64 = 4096.
Если бы изображение было черно-белым, то есть 2 цвета в палитре, то на каждый пиксель нужно было бы 1 бит.
А на 4096 пикселей - 4096 бит = 512 байт.
А у нас вдвое меньше - 256 байт. Значит, нужно 0,5 бита на пиксель?
Но так не бывает, биты должны быть целым числом.
Вывод: ошибка в задании. Или я чего-то не понимаю?
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.