Begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.
15 Кбайт
Объяснение:
V = K * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей)
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
Дано:
K = 160 * 128 = 20 480 пикселей
N = 64 цвета
Найти:
V
64 = 2^i
64 = 2⁶
i = 6 бит
V = 20 480 * 6 = 122 880 бит = 15 360 байт = 15 Кбайт
1 байт = 8 бит
1 Кбайт = 1 024 байт