Function Sign(x:real):integer;
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
<span>a, b:
-8 0
Sign(A) + Sign(B) = -1</span>
кажется( 1 )
предоставляющая доступ к связанныммежду собой документам, расположенным на различных компьютерах, подключённых к сети Интернет.
Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
(100 * 1024 * 1024 * 8) / 1000000 = 839 сек = 14 мин
все округлено в большую сторону
V=i*k, где i- информационный объём (глубина цвета) одной точки (пикселы)
Отсюда => 2 в степени i=65536 => i=16
A 16 - это 2 в степени 4, т.е. i=4
Таким образом, объём изменился 16/4=4 в 4 раза
Ответ: в 4 раза уменьшился