Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
Var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do s:=s+i/10;
Writeln(s)
end.
<u>Результат</u>
5.5
Конец XX и начало XI веков характеризуются бурным развитием компьютерной индустрии. Персональные компьютеры стали повсеместны, сегодня они являются совершенно обыденным явлением. На это повлияло несколько вещей, большая ценовая доступность, уменьшение в размерах, появление програмного обеспечения для обеспечения широкого круга задач
Если для кодирования цвета используют 5 бит
значит количество цветов в палитре можно рассчитать по формуле
N = 2^i
где i - количество бит
N = 2^5 = 32 цвета в палитре