Графический адаптер, графическая плата
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6
Каждый символ в UTF-16 кодируется 2 байтами (16 битами) (ну вообщето есть еще расширенные коды со всякими иероглифами которые кодируются 4, но кирилица туда не входит), т.о. сообщение имеет длину 20*2=40 байт (320 бит)
в кодировке koi8-r на кодирование одного символа отводится 1 байт (8 бит), т.о. длина сообщения будет 20*1=20 байт (160 бит)
следлвательно сообщение сократится в два раза 320-160=160 бит
ответ 160
<span>If a>b
Then begin с:=1; d:=2; end
Else begin c:=3; d:=4; end;</span>