1 кбайт = 1024 байт ⇒ 6 <span>кбайт = 6144 байт
6144 байт
1) ---------------- = 1 байт
6144 симв.
1 байт = 8 бит
По формуле : </span>
=N вычисляем
=256 симв.
<span>
Ответ: 256</span>
включено, выключено, мигает - троичная СС.
Есть 18 штук сигналов. Сколько разрядов в троичной СС нужно для их вмещения?
3² = 9 - двух разрядов мало
3³ = 27- три разряда достаточно
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.