1. Узнаем количество видеопикселей на одной странице640*350=224000умнажаем его на количество страниц 224000*2=4480002. По формуле N=2^i, где N -количество цветов, i -количество бит на один пиксель 16=2^i, 16=2^4⇒ i=4.3. Количество пикселей умножаем на количество бит на пиксель448000*4 = 1792000 бит = 1792000/8=224000 байт = 224000/1024 = 218,75 кбОтвет: 218,75 кб.
Var
a,b,c:real;
begin
read(a,b,c);
writeln;
if a>=0 then writeln(sqr(a)) else writeln(power(a,4));
if b>=0 then writeln(sqr(b)) else writeln(power(b,4));
if c>=0 then writeln(sqr(c)) else writeln(power(c,4));
<span>end.</span>
Ответ:
Язык: Pascal.
var
a: array [1..20] of integer; {объявляем целочисленный массив на 20 элементов}
i, min, t, m: integer; {i - счетчик, min - минимум, t, m - временные переменные}
begin
{рандом 20 чисел в диапазоне [-20;12]}
randomize;
for i:=1 to 20 do
a[i]:=random(33)-20;
min:=a[1]; //присваиваем минимуму первый элемент.
{цикл начинается с 2, чтобы не делать лишнюю итерацию}
for i:=2 to 20 do
begin
{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}
if min > a[i] then
begin
min:=a[i];
m:=i;
end;
end;
{выводим старый массив}
Writeln('Старый массив:');
for i:=1 to 20 do
writeln(a[i]);
{меняем местами последний элемент с минимальным}
t:=a[20];
a[20]:=min;
a[m]:= t;
{выводим новый массив}
Writeln('Новый массив:');
for i:=1 to 20 do
writeln(a[i]);
end.
Var
<span>s1,s2: string; </span>
<span>begin </span>
<span>Write( 's1: ' ); </span>
<span>ReadLn(s1); </span>
<span>Write( 's2: ' ); </span>
<span>ReadLn(s2); </span>
<span>if s1[ 1 ] = s2[ length(s2) ] then </span>
<span>write( 'Da' ) else write( 'Net' ); </span>
<span>ReadLn; </span>
<span>end. </span>